http://www.perlmonks.org?node_id=1006743


in reply to split a line by control ^D character

TIMTOWTDI

#!/usr/bin/perl                                                       
+                                            
use strict;
use warnings;
use IO::All;

my $io = io( shift ) || die $!;

for ( $io->getlines ) {
     print join( qq(|), split /\x04/ );
}

__END__

Karls-Mac-mini:monks karl$ perl -e 'for( 1..3 ){ print qq(foo\x04bar\x
+04baz\n) };' > records.dat

Karls-Mac-mini:monks karl$ cat records.dat
foobarbaz
foobarbaz
foobarbaz

Karls-Mac-mini:monks karl$ ./eot.pl records.dat                       
+                                            
foo|bar|baz                                                           
+                                            
foo|bar|baz                                                           
+                                            
foo|bar|baz

[download]

See IO::All

Regards, Karl

«The Crux of the Biscuit is the Apostrophe»

In Section Seekers of Perl Wisdom