Help for this page

Select Code to Download


  1. or download this
    ... ? ...
: $file =~ /bz2$/i ? open($fh, '-|', 'bzcat', '--', $file)
: open($fh, '<', $file);
  2. or download this
    #! /usr/bin/perl

...
        printf "%-60s %s (%s)\n", $_, scalar localtime($t),
                $t == $r->{tar} ? q(tar time) : q(zip time);
}
  3. or download this
    #! /usr/bin/perl

...
        printf "%-60s %s (%s)\n", $_, scalar localtime($t),
                ($t == $tt) ? q(tar time) : q(zip time);
}