The UNIX and Linux Forums  
Ciao e benvenuto da parte degli Stati Uniti al UNIX e Linux Forum! Grazie per la visita ed unirsi alla nostra Comunità Globale.

Go Back   UNIX e Linux Forum > Inizio Forum > Shell scripting e di programmazione
.
google unix.com



Shell scripting e di programmazione Pubblica domande su KSH, CSH, SH, Bash, Perl, PHP, sed, awk e da altri script di shell e linguaggi di scripting shell qui.

Più di UNIX e Linux Forum Argomenti potreste trovare utili
Filo Thread Starter Forum Risposte Ultimo Post
Eliminazione di linee di sopra di una certa linea eltinator Shell scripting e di programmazione 3 10-11-2007 02:29 PM
Spostamento di righe all'interno di un file txt innocentspirit Shell scripting e di programmazione 5 09-28-2007 12:04 AM
l'eliminazione di righe utilizzando awk-modo migliore? satnamx Shell scripting e di programmazione 3 08-29-2007 07:24 PM
Spostamento prossimo 2 linee il contenuto di precedenti linee Amruta Pitkar Shell scripting e di programmazione 8 04-26-2007 06:09 AM
l'eliminazione di righe ajnabi Shell scripting e di programmazione 8 05-02-2003 11:50 AM

Closed Thread
English Japanese Spanish French German Portuguese Italian Dutch Swedish Russian Norwegian Hungarian Hebrew Danish Bulgarian Greek Powered by Powered by Google
 
LinkBack Thread Tools Cerca in questo Thread Rate Thread Modalità di visualizzazione
  #1 (permalink)  
Old 11-22-2007
sabyasm sabyasm is offline
Utente Registrato
  
 

Join Date: Sep 2005
Interventi: 27
Post particolare l'eliminazione di righe e lo spostamento di una linea utilizzando perl / sed

Salve,

Ho bisogno di convertire un file nel seguente formato: (si prega di notare che i numeri di riga sono forniti per facilitare la ricerca)

File originale:

N. 1 2007-10-2482.90 scambi 0 0,00 100000,00
2 100000,00
3 0,00
4 HOLD
5 2007-10-2589.75 Acquistato 1114 1114 100.000,00 0,00
6 100000,00
7 -0,00
8 STRONG BUY
9 2007-10-2692.35 n. 1114 del commercio 102.896,94 0,00
10 102896,94
11 2,90
12 STRONG BUY
13 2007-10-2991.20 n. 1114 del commercio 101.615,60 0,00
14 101615,60
15 1,62
16 STRONG BUY
17 2007-10-3090.05 n. 1114 del commercio 100.334,26 0,00
18 100334,26
19 0,33
20 STRONG BUY
21 2007-10-3188.45 n. commercio 1114 98551,53 0,00
22 98551,53
23 -1,45
24 STRONG BUY
25 2007-11-0183.70 Venduto 1114 0 0,00 93259,05
26 93259,05
27 -6,74
28 FORZA VENDITA

Modifiled atto:

N. 1 2007-10-2482.90 scambi 0 0,00 100000,00 HOLD
2 2007-10-2589.75 Acquistato 1114 1114 100000,00 0,00 STRONG BUY
3 2007-10-2692.35 n. 1114 del commercio 102.896,94 0,00 FORTE COMPERARE
4 2007-10-2991.20 n. 1114 del commercio 101.615,60 0,00 FORTE COMPERARE
5 2007-10-3090.05 n. 1114 del commercio 100.334,26 0,00 FORTE COMPERARE
6 2007-10-3188.45 n. commercio 1114 98551,53 0,00 STRONG BUY
7 2007-11-0183.70 Venduto 1114 0 0,00 93259,05 FORZA VENDITA


Ciò significa che, ogni 4 righe del file di input deve convertire in una sola riga - dopo l'eliminazione di 2a e 3a riga.

Un perl script per fare ciò che vorrà diventare grande. (sed anche compiere il mio scopo, ma perl modo sarà molto apprezzata).

In attesa per il vostro aiuto!
  #2 (permalink)  
Old 11-22-2007
matrixmadhan matrixmadhan is offline Forum Advisor  
Technorati Master
  
 

Iscriviti Data: marzo 2005
Location: nodo foglia in B + tree
Messaggi: 2.953
Codice:
awk '{ printf "%s", $0; getline;  getline; getline var; printf " %s\n", var }' filename
  #3 (permalink)  
Old 11-22-2007
sabyasm sabyasm is offline
Utente Registrato
  
 

Join Date: Sep 2005
Interventi: 27
grande! lavorato - chiedo solo se questo può essere in donw perl ...
  #4 (permalink)  
Old 11-22-2007
matrixmadhan matrixmadhan is offline Forum Advisor  
Technorati Master
  
 

Iscriviti Data: marzo 2005
Location: nodo foglia in B + tree
Messaggi: 2.953
Citazione:
Originalmente inviato da sabyasm View Post
grande! lavorato - chiedo solo se questo può essere in donw perl ...
sì si può fare!

Codice:
#! /opt/third-party/bin/perl

my $skip = 2;

open(FILE, "<", "a2");

while(<FILE>) {
  chomp;
  if ( $skip < -1 ) {
    $skip = 1;
    print $_;
    next;
  }
  print $_ if( $skip == 2 );
  print "$_\n" if( $skip == -1 );
  $skip--;
}

close(FILE);
  #5 (permalink)  
Old 11-22-2007
summer_cherry summer_cherry is offline Forum Advisor  
Utente Registrato
  
 

Iscriviti Data: giugno 2007
Ubicazione: Pechino Cina
Messaggi: 1.088
awk

salve,

Questo dovrebbe essere ok.

codice:

Codice:
awk '{
if (NR%4==1)
	str=$0
if (NR%4==0)
	print NR/4" "str" "$0
}' file
  #6 (permalink)  
Old 12-12-2007
btech_raju
Valutazione
  
 

Messaggi: n / a
Bit: 0 [Banking]
pasta - - - - <x
Closed Thread

Segnalibri

Thread Tools Cerca in questo Thread
Cerca in questo Thread:

Ricerca Avanzata
Modalità di visualizzazione Vota questo thread
Vota questo thread:

Distacco regolamento
Tu non può post nuovo thread
Tu non può inviare una risposta
Tu non può postare allegati
Tu non può modificare i tuoi post

BB codice è Su
Smilies sono Su
[IMG] codice Su
Codice HTML è Chiuso
Trackbacks sono Su
Pingbacks sono Su
Refbacks sono Su




Tutti gli orari sono GMT -4. La data di oggi è 06:10 PM.


Powered by: vBulletin, Copyright © 2000 - 2006, Jelsoft Enterprises Limited. Traduzioni Powered by .
vBCredits v1.4 Copyright © 2007 - 2008, PixelFX Studios
UNIX e Linux Forum Content Copyright © 1993-2009. Tutti i diritti Reserved.Ad di gestione da RedTyger

Contenuti pertinenti URL da vBSEO 3.2.0