Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use warnings;
    ...
    for my $date (sort keys %output) {
        print "$date\t$output{$date}\n";
    }
    
  2. or download this
    #!/usr/bin/perl
    use warnings;
    ...
    $string =~ s/^[0-9]+-//gm;
    $string =~ s/^([0-9]+)(.*)/$1$2 $table->[$1-1][1]/gm;
    print $string;
    
  3. or download this
    perl -pe 's/(....)(..)/$1-$2-/'
    
  4. or download this
    set term pngcairo size 1024, 800
    set xdata time
    ...
    plot 'pm-xp.txt' using 2:4 with lines title 'XP',\
         '' using 2:($1*1000) with lines title 'Level',\
         'wayback.txt' using 1:2 with lines title 'Wayback Machine'