Debug uno script Awk

mboro · #1 (**permalink**) 10-01-2007

Vorrei estrarre i seguenti campi dal file di testo in allegato. Ho copiato il contenuto di un file pdf e incollato in un file di testo in modo che io possa usare awk per estrarli. Il layout è come qui di seguito elencati.

name1, name2, name3, name4, il titolo, la denominazione, la nazionalità, dob,
nazionale di identificazione, l'indirizzo, quotata, Altre informazioni

Il problema è se rimuovere i commenti nello script mi sembra di avere nulla in cui mettere il file. Please help I'm new awk per la programmazione e la sua sconcertante me. E alcune delle informazioni che sono di estrazione è sbagliato colonne. Che cosa sto facendo di sbagliato? Si prega di consulenza. Sono nuovo di questa lingua

1) Questo è lo script

Codice:

  BEGIN { print "name1,name2,name3,name4,Title,designation,nationality,dob,national identication,address,listed On,Other information";Title=""; dob=""; nationality="";
  }
/*Name(:?)/ {

    if (Title != "" )
    {
      printf ",%s",Title;
      Title=" ";
    }
    if (designation != "" )
    {
      printf ",%s",designation;
      designation=" ";
    }
    if (nationality != "" )
    {
      printf ",%s",nationality;
      nationality=" ";
    }
    if (dob != "" )
    {
      printf ",%s\n",dob;
      dob=" ";
    }
    line = $0;
    gsub(/[[:digit:]]+:/,"",line);
    gsub(/[[:digit:]]+\./,"",line);
    sub(/*Name:/,"",line);
    sub(/*Name/,"",line);
    split(line,names);
    x = 1;
    while (x<=3)
    {
      printf "%s,", names[x];
      x++;
    }
    printf "%s", names[x];
    name1 = $4;
    name2 = $6;
    name3=$8;
    name4=$10;
}
##--> Add title field
/Title:/ {
  line=$0;
  idx1 = index(line,"Title:");
  idx2 = index(line,"Designation:");
  if (idx2==0)
  {
    idx2 = length(line)+1;
  }
  Title = substr(line, idx1+length("Title:"), idx2 - idx1 - length("Title:") );
  sub(",",";",Title)
}

##--> Add Designation
/Designation:/ {
  line=$0;
  idx1 = index(line,"Designation:");
  idx2 = index(line,"DOB:");
  if (idx2==0)
  {
    idx2 = length(line)+1;
  }
  designation = substr(line, idx1+length("Designation:"), idx2 - idx1 - length("Designation:") );
  sub(",",";",designation)
}

/*Nationality: / {
  line = $0;
  idx1 = index(line,"*Nationality: ");
  idx2 = index(line,"Passport");
  nationality = substr(line, idx1+length("*Nationality: "), idx2 - idx1 - length("*Nationality: ") );
  sub(",",";",nationality)
}
/DOB:/ {
  line=$0;
  idx1 = index(line,"DOB:");
  idx2 = index(line,"POB");
  if (idx2==0)
  {
    idx2 = length(line)+1;
  }
  dob = substr(line, idx1+length("DOB:"), idx2 - idx1 - length("DOB:") );
  sub(",",";",dob)
}
##/National identification no.:/ {
  ##line=$0;
  ##idx1 = index(line,"National identification no.:");
  ##idx2 = index(line,"Address");
  ##if (idx2==0)
  ##{
  ##  idx2 = length(line)+1;
  ##}
  ##dob = substr(line, idx1+length("National identification no.:"), idx2 - idx1 - length("National identification no.:") );
  ##sub(",",";",National identification no)
##}

##/Title:/ {context="title"; printf "%s:",context}

Più di UNIX e Linux Forum Argomenti potreste trovare utili
Filo	Thread Starter	Forum	Risposte	Ultimo Post
Come è possibile eseguire il debug nostri script di shell UNIX?	psiva_arul	UNIX e avanzata per utenti esperti	3	09-07-2008 10:31 AM
Come per il debug di script awk	chella	Shell scripting e di programmazione	2	11-08-2007 07:51 PM
debug aix 4,3	itik	AIX	2	10-29-2007 11:56 AM
Come per il debug	ramneek	Di programmazione ad alto livello	1	09-19-2005 06:35 AM
spazio su disco di debug di script - postato prima	Bryan	Shell scripting e di programmazione	3	04-28-2005 07:50 PM

Thread Tools	Cerca in questo Thread
Visualizza Versione stampabile Invia questa pagina	Cerca in questo Thread: Ricerca Avanzata
Modalità di visualizzazione	Vota questo thread
Passa alla modalità lineare Passa alla modalità ibrida Threaded Mode	Vota questo thread:


	Powered by