how to append a string to next line in perl

Shell Programming and Scripting
1

hi all , i have a requirement like this..
this just a sample script...

    $ cat test.sh
#!/bin/bash

perl -e '
open(IN,"addrss");
open(out,">>addrss");
@newval;

while (<IN>)
  {
    @col_val=split(/:/);
    if ($.==1)
    {
      for($i=0;$i<=$#col_val;$i++)
        {
          print("Enter value for $col_val[$i] : ");
          chop($newval[$i]=<STDIN>);
        }


     $str=join(":");
     $_="$str"
     print OUT;

    }
    else
      {
        exit 0;
      }
  }

close(IN);
close(OUT);

'

when i run this scipt...

$ ./test.sh 
Enter value for NAME : abc
Enter value for ADDRESS : asff35
Enter value for STATE : XYZ
Enter value for CITY : EIDHFF
Enter value for CONTACT
 : 234656758
$ cat addrss
NAME:ADDRESS:STATE:CITY:CONTACT
abc:asff35:XYZ:EIDHFF:234656758$

when ran it second time

$ cat addrss
NAME:ADDRESS:STATE:CITY:CONTACT
abc:asff35:XYZ:EIDHFF:234656758ioret:56fgdh:ghdgh:afdfg:987643221$

## it is appended in the same line...

i want it to be added to the next line.....

NOTE:
i want to do this by explitly using the filehandles in perl....and not with redirection operators in shell.

please help me!!!

2

Maybe something like this ?

$
$
$ cat addrss
NAME:ADDRESS:STATE:CITY:CONTACT
$
$ cat -n f9.sh
     1  #!/usr/bin/bash
     2  perl -e '
     3  open(IN, "addrss");
     4  open(OUT, ">> addrss");
     5  while (<IN>) {
     6    chomp(@col_val=split(/:/));
     7    for($i=0; $i<=$#col_val; $i++) {
     8      print("Enter value for $col_val[$i] : ");
     9      chomp($newval[$i]=<STDIN>);
    10    }
    11    $str=join(":", @newval)."\n";
    12    print OUT $str;
    13    exit 0;
    14  }
    15  close(IN);
    16  close(OUT);
    17  '
$
$ ./f9.sh
Enter value for NAME : name_1
Enter value for ADDRESS : address_1
Enter value for STATE : state_1
Enter value for CITY : city_1
Enter value for CONTACT : contact_1
$
$ cat addrss
NAME:ADDRESS:STATE:CITY:CONTACT
name_1:address_1:state_1:city_1:contact_1
$
$
$ ./f9.sh
Enter value for NAME : name_2
Enter value for ADDRESS : address_2
Enter value for STATE : state_2
Enter value for CITY : city_2
Enter value for CONTACT : contact_2
$
$ cat addrss
NAME:ADDRESS:STATE:CITY:CONTACT
name_1:address_1:state_1:city_1:contact_1
name_2:address_2:state_2:city_2:contact_2
$
$

tyler_durden

3

thanx a lot tyler.....it worked.!!:b: