curl_fm

   1 #!/usr/bin/perl -w
   2 use strict;
   3 ###APPNAME:     curl_fm
   4 ###APPAUTHOR:   duel
   5 ###APPDATE:     Thu Sep 20 07:46:29 2007
   6 ###APPVER:      0.1
   7 ###APPDESC:     curl with reformated output
   8 ###APPUSAGE:    See curl --help
   9 ###APPEXAMPLE:
  10 ###APPOPTION:
  11 $ARGV[0]="--help" unless(@ARGV);
  12 exit 0 unless(system("plhelp",$0,(@ARGV)));
  13
  14
  15
  16 open(FH,"curl @ARGV 2>&1|");
  17 while(<FH>) {
  18     if(m/([0-9.]+%)/) {
  19         print "$1";
  20     }
  21     else {
  22         print "Haha___$_";
  23     }
  24 }
  25
  26
  27
  28
  29