home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.cse.unsw.edu.au
/
2014.06.ftp.cse.unsw.edu.au.tar
/
ftp.cse.unsw.edu.au
/
pub
/
doc
/
languages
/
perl
/
nutshell
/
ch5
/
label
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1992-10-18
|
196 b
|
9 lines
_$_L_A_B_E_L = _I_N_I_T_I_A_L;
while (<_I_N_P_U_T>) {
if (/:$/) {
_$_L_A_B_E_L = $`;
} else {
print _O_U_T_P_U_T _$_L_A_B_E_L, _S_E_P, $_;
}
}