Pesquise antes de linha em branco

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

Olá,

Na verdade, tenho duas questões. Em primeiro lugar, aqui é o arquivo da forma como é agora.

someword someword: 1
nova palavra-nova palavra-abcd
someword someword: 10
nova palavra-nova palavra-abcd
Esta_B whatIneed: 3

someword someword: 5
nova palavra-nova palavra-abcd

Preciso de ir buscar a linha antes do 2 esboços e movê-lo para um arquivo diferente. Tentei usar sed, Mas só fico recebendo mensagens de erro. Além disso, pode haver nenhuma, uma ou várias instâncias do presente dentro do ficheiro.

Eu provavelmente deverá também mencionar que esta é uma parte de um maior perl script que estou trabalhando. Tenho feito tudo o resto, o arquivo acima é efectivamente gerados pelo script. Eu também tenho tudo abaixo é completa, mas estou completamente preso neste momento.

Qualquer ajuda com qualquer seria apreciada.

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

cerca de pensamento de baixo, espero que possa ajudá-lo a algum

Código:

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

Aqui é meu, feio, mas deve fazer o truque

(não testado)

Código:

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

Verão cereja,

aqui é o que acabei no meu script:

#! / usr / bin /perl

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

Recebi a mensagem de erro abaixo. Qualquer idéias? Agradeço a ajuda.

ansipre2 erro de sintaxe na linha 7, próximo a ") ["
Execução de ansipre2 abortado devido a compilação erros.

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

Citação:

Originally Posted by aaaaargh

Aqui é meu, feio, mas deve fazer o truque

(não testado)

Código:

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

Obrigado pela resposta. Infelizmente estou de novo a este e não pode figurar como implementar isso em meu script. Abaixo está as duas últimas linhas do script para obter o arquivo que tinha anteriormente.

sistema "dos2unix ansi3> ansi7";
system "mv ansi7 ansi3";

Obrigado novamente por qualquer ajuda.

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

Código:

$ 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

Tenha cuidado quando você colar esse corte - não deve haver qualquer espaço.

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

Obrigado a todos que me ajudaram nesta matéria. Após muita dor eu decidi ir para uma rota diferente e em vez anexado a repetir que a seqüência anterior da linha. Concedidas, que resultaram em poucas linhas de código extra, mas o que o diabo. Basta um FYI, abaixo é o código que acabou dando-me as linhas Eu estava procurando inicialmente.

open (FILE7, "> file7");
open (MYINPUTFILE, "ficheiro3");

while (<MYINPUTFILE>) (
chomp;
my $ someword \u003d "";
my $ nova palavra-\u003d "";
if (/ ^ someword /) ($ someword \u003d $ _; while (<MYINPUTFILE>) (chomp;
if (/ ^ nova palavra-/) (
imprimir FILE7 "$ someword $ _";
FILE7 print "\ n";)
último;
)
)
)
system "mv file7 ficheiro3";
sistema "dos2unix ficheiro3> file7";
system "mv file7 ficheiro3";
sistema "gato ficheiro3 | cut-d" "-f1-2>> file0 ';
sistema "sort-n file0> ficheiro1";
system "mv ficheiro1 file0";
sistema "file0 sort | uniq-u> ficheiro1";
system "mv ficheiro1 file0";

Mais UNIX e Linux Fórum Tópicos Você pode achar Helpfull
Fio	Thread Starter	Fórum	Respostas	Última postagem
Newbie ajudar com a Nova Linha & Blank Line	kthatch	UNIX para Dummies Perguntas & Respostas	5	01-23-2009 04:19
sed: apagar regex linha e se próxima linha em branco	one71	Programação Shell Script e	2	09-18-2008 06:53
Como chegar a última linha em branco não?	tqlam	Programação Shell Script e	6	01-17-2008 07:13
Linha em branco?	varungupta	UNIX & avançada para usuários experientes	2	09-10-2007 01:52
cant find comando que retorna linha em branco	jeffersno1	UNIX para Dummies Perguntas & Respostas	2	11-15-2001 04:14

Thread Tools	Pesquisar este Thread
Show Printable Version Enviar esta página	Pesquisar este Thread: Pesquisa Avançada
Display Modes	Esta taxa Thread
Mude para o Modo Linear Hybrid Mode Switch to Threaded Mode	Esta taxa Thread:


	Powered by