Help for this page

Select Code to Download


  1. or download this
    while( my $line = <DATA> ){
  ...
...
sample
input
data
  2. or download this
    open (WORDS, 'data.txt')
  or die "Can't open employees2.txt: $!\n";

my @cols = qw('data.txt');
  3. or download this
    #!/usr/local/bin/perl

...
input more words
thiswordhaseveryvoul so it should print
butthisdoesnt nor do these
  4. or download this
    $ perl chinamox.pl
thiswordhaseveryvoul
  5. or download this
    s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)