Lib/perllib/Test/edc-test.pl

   1 #!/usr/bin/env perl
   2
   3 # $Id: edc-test.pl,v 1.1 1999/04/08 15:03:19 sunny Exp $
   4
   5 require "tritech/tricgi.pm";
   6
   7 $Str = '(;<>*|&$!#()[]{}:\'"lsdkjvnklsdjvfn';
   8
   9 # print  "Før  : $Str\n";
  10 # printf("Etter: %s\n", &tricgi::escape_dangerous_chars($Str));
  11
  12 while (<>) {
  13         chomp;
  14         printf("%s\n", &tricgi::escape_dangerous_chars($_));
  15 }