Re^2: Get record separator of a file

[Anonymous Monk]

Translation: read a chunk of data that you know to be big enough, then search for known character strings that could be the right answer ... taking care to search for longer strings first.

[karlgoethebier]

Shure, yes.

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use IO::All;

io(shift)->read(my $chunk, 10);

print Dumper(unpack("C*", $chunk));

for(unpack("C*", $chunk)){print chr()}

$chunk =~ m/(\n|\r\n)/g;

print unpack("C*", $1);

__END__

$ ./recsep.pl dos.csv
$VAR1 = 102;
$VAR2 = 111;
$VAR3 = 111;
$VAR4 = 59;
$VAR5 = 98;
$VAR6 = 97;
$VAR7 = 114;
$VAR8 = 13;
$VAR9 = 10;
foo;bar
1310

$ ./recsep.pl unix.csv
$VAR1 = 102;
$VAR2 = 111;
$VAR3 = 111;
$VAR4 = 59;
$VAR5 = 98;
$VAR6 = 97;
$VAR7 = 114;
$VAR8 = 10;
$VAR9 = 10;
foo;bar

10

Don't no other way. Thank you and regards, Karl