Help for this page

Select Code to Download


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

use strict;
...
while (my $row = $sth->fetch) {print "@$row<br />";}

1;
  2. or download this
    name|age|address|phone
Sandra | 46 | 1252 Some St, Anywhere, WI 12345 | 123-456-7890
  3. or download this
    if (ref($file) eq 'ARRAY'){print join("\n", $format, @$file, $createMo
+de), "\n";}<br />
else {print join("\n", $format, $file, $createMode), "\n";}