Tudjon vonal előtt üresen

ddrew78 · #1 (**permalink**) 03-18-2009

Helló,

Én tulajdonképpen két kérdés. Először is, itt van a kép, ahogyan most.

someword someword: 1
új szó új szót abcd
someword someword: 10
új szó új szót abcd
thisis whatIneed: 3

someword someword: 5
új szó új szót abcd

Kell, hogy a vonal előtt, a 2 és az Üres megmozdítani egy másik fájlt. Megpróbáltam segítségével sed, De Folyamatosan hibaüzeneteket. Emellett előfordulhat, hogy nincs, egy, vagy több példány ezen belül a fájlt.

Meg kell még említeni, hogy talán ez is része egy nagyobb perl forgatókönyvet, amin dolgozom. Én minden mást tenni, a fájl fent van, amelyeket a forgatókönyvet. Én is mindent alatt teljes, de am teljesen megragadt ezen a ponton.

Minden segítséget sem lenne méltányol.

summer_cherry · #2 (**permalink**) 03-18-2009

durván gondoltam alatt, remélem, segít valami

Kód:

open $fh,"<","yourfile";
open $out,">>","youroutfile";
undef $/;
$str=<$fh>;
print $out split(/\n^$\n^$\n/s,$str,2)[0];

aaaaargh · #3 (**permalink**) 03-18-2009

Itt az enyém, ronda, de meg kell tennie a trükk

(nem tesztelt)

Kód:

awk 'BEGIN{i=0}
  { content[NR]=$0; if (($0=="")) {b[i]=NR;i++} j++;} 
  END 
 { 
   for (x=0;x<=b[0];x++) 
  {print content[x] > "file1" } for (x=b[1];x<=j; x++) { print content[x] > "file2"}   
}'  /var/tmp/file

ddrew78 · #4 (**permalink**) 03-19-2009

nyári meggy,

Itt van, amit végül az in my script:

#! / usr / bin /perl

nyitott $ fh ,"<"," myfile ";
nyitott $ out ,">>"," mynewfile ";
undef $ /;
$ str \u003d <$ fh>;
print $ out split (/ \ n ^ $ \ n ^ $ \ n / s, $ str, 2) [0];

Megvan az alábbi hibaüzenetet. Any ideas? Köszönöm a segítséget.

syntax error at ansipre2 sor 7, near ") ["
Végrehajtása miatt félbeszakadt ansipre2 összeállítása hibákat.

ddrew78 · #5 (**permalink**) 03-19-2009

Idézet:

Originally Posted by aaaaargh

Itt az enyém, ronda, de meg kell tennie a trükk

(nem tesztelt)

Kód:

awk 'BEGIN{i=0}
  { content[NR]=$0; if (($0=="")) {b[i]=NR;i++} j++;} 
  END 
 { 
   for (x=0;x<=b[0];x++) 
  {print content[x] > "file1" } for (x=b[1];x<=j; x++) { print content[x] > "file2"}   
}'  /var/tmp/file

Köszi a választ. Sajnos én vagyok az új, és nem lehet kitalálni, hogy hogyan hajtsák végre ezt be a forgatókönyvet. Lentebb az utolsó két sor a forgatókönyvet, hogy a fájl volt fent.

rendszer "dos2unix ansi3> ansi7";
rendszer "mv ansi7 ansi3";

Köszönet minden segítségért.

rikxik · #6 (**permalink**) 03-19-2009

Kód:

$ cat sd
sed -n '/^$/!{
h
}
/^$/{
N
/^\n$/ {
x
p
q
}
}' fl
$
$ cat fl
someword someword:1
new-word new-word abcd
someword someword:10
new-word new-word abcd
thisis whatIneed:3


someword someword:5
new-word new-word abcd
$
$ sd
thisis whatIneed:3

Legyen óvatos, ha vágott be ezt - nem lehet semmiféle szóközök.

ddrew78 · #7 (**permalink**) 03-20-2009

Köszönet mindenkinek, aki segített nekem. Miután sok fájdalom úgy döntöttem, hogy egy másik útvonalon, és ehelyett a mellékelt megismétlésétől string rá előző sorban. Nyújtható, amelynek eredményeként egy néhány sornyi kódot, de mi a fene. Just an FYI, az alábbi kód, amely a vége, hogy nekem a vonalak én eredetileg keresett.

Open (FILE7, "> file7");
Open (MYINPUTFILE, "file3");

while (<MYINPUTFILE>) (
chomp;
my $ someword \u003d "";
my $ új szó \u003d "";
if (/ ^ someword /) ($ someword \u003d $ _; while (<MYINPUTFILE>) (chomp;
if (/ ^ új szó /) (
FILE7 print "$ $ someword _";
FILE7 print "\ n";)
utoljára;
)
)
)
rendszer "mv file7 file3";
rendszer "dos2unix file3> file7";
rendszer "mv file7 file3";
rendszer "macska file3 | cut-d" "-f1-2>> file0";
rendszer "sort-n file0> fájl1";
rendszer "mv fájl1 file0";
rendszer "sort file0 | Uniq-u> fájl1";
rendszer "mv fájl1 file0";

Több, UNIX és Linux fórum témák Ön által talált Hasznos
Szál	Thread Starter	Fórum	Válaszok	Utolsó hozzászólás
Newbie segíteni a New Line és üres_sor	kthatch	A UNIX a dummies Kérdések és válaszok	5	01-23-2009 04:19 PM
sed: törli regex sor és a következő sort, ha üres	one71	Shell programozás és Scripting	2	09-18-2008 05:53 AM
Hogyan lehet eljutni az utolsó nem üres sor?	tqlam	Shell programozás és Scripting	6	01-17-2008 07:13 PM
Üres sor?	varungupta	A UNIX a fejlett és szakértői Felhasználók	2	09-10-2007 12:52 PM
vidám talál a parancs, hogy visszatér üres sor	jeffersno1	A UNIX a dummies Kérdések és válaszok	2	11-15-2001 04:14 PM

Téma eszközök	Keresés a téma
Show Nyomtatható verzió Küldés e-mailben	Keresés a téma: Részletes keresés
Megjelenítési módok	Rate this thread
Váltás Linear Mode Hibrid üzemmód Switch to Threaded Mode	Rate this thread:


	Powered by