Help for this page

Select Code to Download


  1. or download this
    open (FH, 'out.txt');
   print FH "start" . $type . "end"; 
 close FH;
  2. or download this
    my $type = "";
if ($msgString =~ m/Typ\s*:\s*(\w+)/i) {
 $type = $1;        
...
}#if
print "start" . $type . "end";
  3. or download this
    print "start" . $type . "end\n";
print "$type\n";
print "xxxxxxxxxxxxxxxxxxxxxxx$type\n";