Hej alla,
Denna gång Jag har en fråga i perl.
Jag måste skapa kommaseparerad fil med följande typ av information. Problemet är kolonnerna inte har några särskilda avgränsare. Så även använda delade jag får olika värde. En del där det finns plats (S) och en del där det är fliken (s). I vissa fall har jag inte värden under vissa specifika kolumn och dessa är också fylld med fliken (er) och / eller plats (er).
Revsn: Datum Vem SID Beskrivning av Modification
09-Jul-01 Amiya 01-04Jul01 lägga setdescriptor genvägar
02-aug-99 Ratha chk omfatta 1. Line
Ta bort per VandJ
06-Jan-98 DASP data föråldrade ...
02-Jul-97 Gupts lägga DDMM för fullständighetens

Jag vill ha min produktion som
09-Jul-01, Amiya ,01-04Jul01, lägg setdescriptor genvägar
02-aug-99, Ratha ,----, chk omfatta 1. Linje bort VandJ (Om linjen har bara beskrivning, komplettera föregående rad)
06-Jan-98, DASP ,----, data föråldrade ...
02-jul-97, Gupts ,----, lägga DDMM för fullständighetens
Tack på förhand ....

Prova detta:

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

Jag får syntax erro medan utföra detta kommando enligt nedan
awk: newline karaktär klass nära linje 1
awk: syntaxfel nära linje 2
awk: bailing ut nära linje 2

Använd nawk, gapa eller / usr/xpg4/bin/awk på Solaris.

Hälsningar

Prova detta:

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

För att hjälpa till med en pålitlig lösning, måste du definiera vad området kan innehålla:

01-04Jul01

Det är alltid samma format eller kan det vara annorlunda dessutom bara inte finns? Svarar alltid samma dag i början av raden?

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";
}