#!/usr/bin/perl use strict; while (<DATA>) { chomp; my $name; s/^(\w+)\s?;// and $name = $1; for my $i ( split ";" ) { print "$name; $i\n"; } } __DATA__ alex ;teacher; 1945-12-1; california john; lawyer ; texas peter ;teacher; 1948-01-04
In reply to Re: single line to multiple line
by bichonfrise74
in thread single line to multiple line
by thalumus
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |