Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...

__DATA__
e:\logfiles\beardstownbase.log [3] Thu 22Jun06 08:07:19 - (006415) Sen
+t file d:\data\58bn5904.dat successfully (25.0 Kb/sec - 859216 bytes)
  2. or download this
    s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)