Help for this page

Select Code to Download


  1. or download this
    my $f = "/etc/fstab";
    open ( my $fh, "<", $f );
    ...
        print if (1..3) ;
    }
    
  2. or download this
    my $f = "/etc/fstab";
    open ( my $fh, "<", $f );
    ...
    while ( <$fh> ) {
        print if (1..3) ;
    }