Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
    use strict;
    ...
    open INDEX, '>', $INDEX or die "$INDEX : $!";
    print INDEX "$key:$val" while ( $key, $val ) = each %index;
    close INDEX;
    
  2. or download this
    P:\test>perl -c windex-1.pl
    windex-1.pl syntax OK
    
  3. or download this
    P:\test>windex-1.pl *.pl
    710:No such file or directory at P:\test\windex-1.pl line 15.
    ...
    710:No such file or directory at P:\test\windex-1.pl line 15.
    710:No such file or directory at P:\test\windex-1.pl line 15.
    ...
    
  4. or download this
    while( my $file = pop @ARGV ) {
    
  5. or download this
    P:\test>windex-1.pl *.pl
    306836-trietest.pl:Permission denied at P:\test\windex-1.pl line 15, <
    +FILE> line 83342.
    
  6. or download this
    P:\test>type words.index
    expletive:2
    ...
    paws:6
    "\n$_:2
    ...