PERL Splitowanie z wylaczeniem stringu pomiedzy danymi znakami

[dafian]

Witam,

Mam problem nad którym głowie się od dłuższego czasu. Mianowicie:

mam tekst:

$text = 'SAR001,"","Cimetrix, Inc","Bob Smith","CAM",N,8,1,0,7,"Error, Core Dumped" '

chce go rozdzielic po separatorze , z wyłączeniem tekstu pomiedzy "".
Posłużylem się takim sposobem:

@new = ();
   push(@new, $+) while $text =~ m{
   "([^\"\\]*(?:\\.[^\"\\]*)*)",? # groups the phrase inside the quotes
    | ([^,]+),?
    | ,
   }gx;
   push(@new, undef) if substr($text,-1,1) eq ',';

Wszystko jest ok z tym ze tekst chce otrzymac w postaci:

"SAR001";"";"Cimetrix, Inc";"Bob Smith";"CAM";"N";"8";"1";"0";"7";"Error, Core Dumped";

probowalem zastosowac:

foreach my $val (@new) {
   
  print "\"$val\";";
  }

Jednak ostatnia wartość w linice zapisywana jest ze nakiem końca lini w wyniku czego otrzymuje:

"SAR001";"";"Cimetrix, Inc";"Bob Smith";"CAM";"N";"8";"1";"0";"7";"Error, Core Dumped
";

Całkowite usunięcie znaku końca lini nie rozwiązuje problemu ponieważ $text w niektórych przypadkach jest wielo liniowy.
Troche zagmatwane ale mam nadzieje ze ktos pomoze.

[TQM]

Nie ma stracha...

#!/usr/bin/perl
$text = 'SAR001,"","Cimetrix, Inc","Bob Smith","CAM",N,8,1,0,7,"Error, Core Dumped"';

@t = split /,/, $text;
for ($c=0;$c<=$#t;$c++) {
	if ($t[$c] =~ /^".*?[^"]$/) {
		$t[$c] .= ",$t[$c+1]";
		splice(@t,$c+1,1);
	}
}

use Data::Dumper;
print Dumper \@t;

zwraca

$VAR1 = [
          'SAR001',
          '""',
          '"Cimetrix, Inc"',
          '"Bob Smith"',
          '"CAM"',
          'N',
          '8',
          '1',
          '0',
          '7',
          '"Error, Core Dumped"'
        ];

uzylem Data:umper bo pokazuje ladnie jaka jest struktura zmiennej, przydaje sie szczegolnie do wyswietlania w czytelnym formacie bardziej zaawansowanych struktur :-)

[dafian]

Dzieki za odp ale nie do konca o to mi chodzilo. Sprobuje wyjaśnić lepiej.
Mam plik wejściowy w formie:

SAR001, ,"Cimetrix, Inc",Bob Smith,CAM,N,8,1,0,7,"Error, Core Dumped" 
SAR002, ,"Cimetr22, In2",Bob2Smith,CA2,2,2,2,2,2,"Error,2Core Dumped"

Natomiast forma pożądana przeze mnie to plik wyjściowy:

"SAR001";"";"Cimetrix, Inc";"Bob Smith";"CAM";"N";"8";"1";"0";"7";"Error, Core Dumped"; 
"SAR002";"";"Cimetr22, In2";"Bob2Smith";"CA2";"2";"2";"2";"2";"2";"Error, 2Core Dumped";

Mam coś takiego:

#!/usr/bin/perl

open(DANE, "$ARGV[0]") || die "$ARGV[0] not exist";
open(XXX, ">b-$ARGV[0]");




while ($txt = <DANE>) 
	{



 @new = ();
push(@new, $+) while $txt =~ m{
 "([^\"\\]*(?:\\.[^\"\\]*)*)",? # groups the phrase inside the quotes
  | ([^,]+),?
   | ,
 }gx;
  push(@new, undef) if substr($txt,-1,1) eq ',';


foreach my $val (@new) {
   
 print  XXX"\"$val\"\;";
  
}
}

Jednak otrzymuje:

"SAR001";" ";"Cimetrix, Inc";"Bob Smith";"CAM";"N";"8";"1";"0";"7";"Error, Core Dumped";"
";"SAR002";" ";"Cimetr22, In2";"Bob2Smith";"CA2";"2";"2";"2";"2";"2";"Error,2Core Dumped";"
";

Wszystko ok z wyjatkiem tego ze ostatnia wartość jest ze znakiem konca lini przez co do kolejniej lini wskakuje mi "; .
Mysle ze teraz jest troche jasniej.


EDIT:

W przypadku gdy wartość ostatnia w lini jest w " " skrypt wyrzuca:

"SAR001";" ";"Cimetrix, Inc";"Bob Smith";"CAM";"N";"8";"1";"0";"7";"Error,Core Dumped";"<EOL>
";"SAR002";" ";"Cimetr22, In2";"Bob2Smith";"CA2";"2";"2";"2";"2";"2";"Error,2Core Dumped";"<EOL>
";

Natomaist jezeli ostatnia wartość jest bez " " np.:

SAR001, ,"Cimetrix, Inc",Bob Smith,CAM,N,8,1,0,7,Error,Core Dumped 
SAR002, ,"Cimetr22, In2",Bob2Smith,CA2,2,2,2,2,2,Error,2Core Dumped

skrypt wyrzuca:

"SAR001";" ";"Cimetrix, Inc";"Bob Smith";"CAM";"N";"8";"1";"0";"7";"Error";"Core Dumped<EOL>
";"SAR002";" ";"Cimetr22, In2";"Bob2Smith";"CA2";"2";"2";"2";"2";"2";"Error";"2Core Dumped<EOL>
";

Wydaje mi sie ze rozwiazaniem jest zastapienie "<EOL>"; na <EOL>
oraz <EOL>"; na ";<EOL>

niestety:
$val =~ s/\"\n\"\;/\n/m
to nie to.

[TQM]

#!/usr/bin/perl
while (<DATA>) {
	chomp;
	@t = split /,/, $_;
	for ($c=0;$c<=$#t;$c++) {
		if ($t[$c] =~ /^".*?[^"]$/) {
                        # sklejamy pola ktore maja przecinki w srodku
			unless ($t[$c] =~ /"$/) {
				$t[$c] .= ",$t[$c+1]";
				splice(@t,$c+1,1);
			}
		} elsif ($t[$c] !~ /^".*?"$/) {
                        # pole nie jest w cudzyslowach wiec dodajemy je
			$t[$c] = "\"$t[$c]\"";
		}
	}
        # polacz pola w jedna linijke i dodaj newline na koncu (ale bez ; na koncu)
	print join (';', @t) . "\n";
}

__DATA__
SAR001, ,"Cimetrix, Inc",Bob Smith,CAM,N,8,1,0,7,"Error, Core Dumped" 
SAR002, ,"Cimetr22, In2",Bob2Smith,CA2,2,2,2,2,2,"Error,2Core Dumped"

dziala dokladnie jak chciales

"SAR001";" ";"Cimetrix, Inc";"Bob Smith";"CAM";"N";"8";"1";"0";"7";"Error, Core Dumped" 
"SAR002";" ";"Cimetr22, In2";"Bob2Smith";"CA2";"2";"2";"2";"2";"2";"Error,2Core Dumped"