This is the program;
format ILL =
@<<
$number
..
open (INPUT_FILE, "$DATA_DIR/opacrequests.LN.out") || die "Cannot open
$DATA_DIR/opacrequests.LN.out: $!";
open (ILL, ">$OUT_DIR/pobk_rpt.txt") || die "Cannot open
$OUT_DIR/pobk_rpt.txt: $!";
while ($_=) {
chop $_ ;
($number, $date_time,
Anyone know how to get rid of two new lines from one text file before
writing to another
i.e.
line of text
line of text
I can get rid of one newline with chop but can't think of how to delete two?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTE
