Hi everybody,
Denne gangen Jeg har en sak i perl.
Jeg må lage kommaseparert fil ved hjelp av følgende type informasjon. Problemet er søylene ikke har noen spesifikke skilletegn. Så mens du bruker splitt Jeg får forskjellig verdi. Noen der det er plass (S) og noen hvor det er kategorien (e). i noen tilfeller ikke jeg har verdier under enkelte kolonne og disse er også fylt med kategorien (e) og / eller plass (r).
Revsn: Dato Hvem SID Beskrivelse av endring
09-Jul-01 Amiya 01-04Jul01 legge setdescriptor snarveier
02-Aug-99 RathA chk inkludere 1.linje
fjerne per VandJ
06-Jan-98 DASP data foreldet ...
02-Jul-97 Gupts legge ddmm for fullstendighet

Jeg vil ha min utgang som
09-Jul-01, ,01 Amiya-04Jul01, legger setdescriptor snarveier
02-Aug-99, RathA ,----, chk inkludere 1.linje fjerne VandJ (hvis linjen har kun beskrivelse, legg til forrige linje)
06-Jan-98, DASP ,----, data foreldet ...
02-Jul-97, Gupts ,----, legge ddmm for fullstendighet
Takk på forhånd ....

Prøv dette:

awk '
NR>1 && /^[0-9/{printf("\n%s",$0);next}
{printf(" %s",$0)}
END{print ""}
' file

Jeg får syntaks FEIL mens kjøre denne kommandoen som nedenfor
awk: newline karakter klasse nær linje 1
awk: syntaksfeil nær linje 2
awk: bailing ut nær linje 2

Bruk nawk, gawk eller / usr/xpg4/bin/awk på Solaris.

Hilsen

Prøv dette:

perl -ne '
	if (/^[0-9]{2}-[[:alpha:]]{3}-[0-9]{2}/) {
		if (defined($prev)) { printf($prev . "\n"); }
		($f1, $f2, $f3, undef, $f5) = m/([0-9]{2}-[[:alpha:]]{3}-[0-9]{2})[[:blank:]]+([[:alnum:]]+)[[:blank:]]+(([0-9]{2}-)?[0-9]{2}-?[[:alpha:]]{3}-?[0-9]{2}[[:blank:]])?(.*)/;
		if ($f3 == "") { $f3="----" }
		$prev = join(",",$f1,$f2,$f3,$f5);
	} else {
		$prev .= " " . chomp($_);
	}
	END { printf($prev . "\n"); }
' inputfile > outputfile

for å hjelpe en pålitelig løsning, må du definere hva dette feltet kan inneholde:

01-04Jul01

Det er alltid det samme format, eller kan det være annerledes dessuten bare ikke eksisterende? Har det alltid samsvarer med datoen på begynnelsen av linjen?

awk '{p=c; c=$0}; !/^[0-9]+/{print p,c;next}1' file

while (<>) {
    chomp; 
    $p = $c; $c = $_;
    if (!/^[0-9]+/) { print "$p $c\n" ; next ; }
    print $_ . "\n";
}