Help for this page

Select Code to Download


  1. or download this
    open FH, "< $indir/$file" or printf "can't open %s\n",$file;
  2. or download this
    open FH, "< $indir/$file" or warn "can't open $file :: $!" and return;
  3. or download this
       $line = <FH>;
    $_ = $line;
...
    printf "\n$file";
    if ( $field1 == "1"){
  4. or download this
       $line = <FH>;
    close FH;

    printf "\n$file";
    if ( $line =~ m/^Clock/){
  5. or download this
    sub ret_a_ref {
my @arr;
...
my $first = $a_ref->[0];
...