Help for this page

Select Code to Download


  1. or download this
    open my $bpl_fh, '<', '/tmp/bpl.txt' or die $!;
    chomp(my @words = <$bpl_fh>);
    ...
     }
    print $fh2 "$_\n" foreach @lines;
    close $fh2;
    
  2. or download this
    chomp(my @words = @bpl);
    
    ...
    
     }
    print "$_\n" foreach $item;