dameninngenn

#!/bin/sh

function main() {
    loop_count=0

    if [ $# -eq 0 ]; then
        loop_count=8
    else
        loop_count=$1
    fi

dameninngenn

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

use Time::HiRes qw( usleep );

for my $i ( 1..30 ) { 
    print "\033[2J";
    print "\033[0;0H";

dameninngenn

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

use Getopt::Long;

use constant DIGITAL_NUMBERS => (
    [ qw(
        1110

dameninngenn

var list = {
    text : {
        "key" : "バリュ〜〜"
    },
    checkbox : {
        "hai" : 1
    }
};

for (var key in list.text) {

dameninngenn

#!/usr/bin/env perl
use strict;
use warnings;
use Net::Twitter::Lite;
use Term::UI;
use Term::ReadLine;

my $term = Term::ReadLine->new('Tw');
my $consumer_key = $term->get_reply(
    prompt => 'Enter Consumer Key: ',

dameninngenn

/usr/sbin/logrotate /etc/logrotate.conf
cat /var/lib/logrotate.status

dameninngenn

use Time::HiRes;
my $start = [ Time::HiRes::gettimeofday ];
my $ns = Time::HiRes::tv_interval($start) * 1000;

dameninngenn

tail -f access.log | awk '$NF > 500000 {print}'

dameninngenn

:set ff=unix

dameninngenn

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use HTTP::Cookies;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use FindBin qw($Bin);
use Readonly;