I need help to filter a text file.

[superc0red]

i have a file:

date: 02-02-2006
name: geopar
doc: test machine
username: test1
password: p4ss
address: test2
phone: [phone]
username: test
fax: [phone]
etc.....

i want to generate a new file with data : (username password)

(a script to check for structure
username:
password:
in file, and if found dump username & password to outfile..)

help :)

[docsnyder]

@superc0red

The basic idea is:

@file = (
  "date: 02-02-2006",
  "name: geopar",
  "doc: test machine",
  "username: test1",
  "password: p4ss",
  "address: test2",
  "phone: [phone]",
  "username: test",
  "fax: [phone]",
  "",
  "date: 02-02-2006",
  "name: geopar",
  "doc: test machine",
  "username: test2",
  "password: p5ss",
  "address: test2",
  "phone: [phone]",
  "username: test",
  "fax: [phone]",
);
 
for $line ( @file ) {
  if ( $line =~ m/^username:\s+(.*)$/ ) {
    $user = $1;
  }
  elsif ( $line =~ m/^password:\s+(.*)$/ ) {
    $pw = $1;
 
    printf("$user $pw\n");
 
    $user = $pw = undef;
  }
}

Reading in the input file and writing the result to the output file instead of printing it is left to you as an exercise ;o)

Greetz, Doc

[KevinADC]

i have a file:

date: 02-02-2006
name: geopar
doc: test machine
username: test1
password: p4ss
address: test2
phone: [phone]
username: test
fax: [phone]
etc.....

i want to generate a new file with data : (username password)

(a script to check for structure
username:
password:
in file, and if found dump username & password to outfile..)

help :)

Do you have any existing code? If so maybe it just needed a small tweak to work. If not, Docs suggestion should get you over the hump.