in reply to Re: CR-LF Newlines as 2 distinct characters
in thread CR-LF Newlines as 2 distinct characters

my $playlist= pack "S*", unpack "C*", join "\r\n", "PLP PLAYLIST", "VE
+RSION 1.20";
open PLAYLIST, ">", 'playlist.plp' or die "Couldn't open playlist.plp:
+ $!\n";
binmode PLAYLIST;
print PLAYLIST $playlist;

[download]

?

- tye        

In Section Seekers of Perl Wisdom