Help for this page

Select Code to Download


  1. or download this
    open(FOLKS, "folks.txt") || die "can't open folks: $!";
while (<FOLKS>) {
  chomp;
  ($number, $addr1, $addr2, $addr3, $addr4) = (split /,/)[0,1,2,3,4];
  2. or download this
    $label1 = "fee"
$label2 = "fi"
$label3 = "fo"
$label4 = "fum"
  3. or download this
    print "$label1,$number,$addr1\n";
print "$label2,$number,$addr2\n";
print "$label3,$number,$addr3\n";
print "$label4,$number,$addr4\n";