Shell Programming and Scripting

Hi All,
I have multiple lines in a file like:-
"abc" def "ghi" jkl "mno" 1

I want to print in output:-
abc/ghi/mno 1

How can I do this in perl?

Regrds,
Nilabh

-----Post Update-----

Additional info:-
The last field of the file should be output as it is.In the above example 1 is the last field in the file

-----Post Update-----

Additional info:-
The last field of the file should be output as it is.In the above example 1 is the last field in the file

que sound track......

What have you tried so far to solve your programming requirements?

Posting your question doesn't count

Hope this helps point you in the right direction:

#!/usr/bin/env perl

use strict;

my $file="file.txt";
open(FILE, "<$file") or die "Unable to access $file: $!\n";
while(<FILE>) {
if($_ =~ /\"(.*?)\"\s.*?\s\"(.*?)\"\s.*?\s\"(.*?)\"\s(.*)/) { print "$1/$2/$3 $4\n"; }
}
close(FILE);
exit(0);

sigh.... Like I said Neo.... (sad thing is) they prove you wrong all the time on this forum.

-----Post Update-----

A contrived solution that only works for the exact sample data posted. But maybe thats all they need.

-----Post Update-----

christ, this post update thing is a bit obnoxious.....

-----Post Update-----

christ, this post update thing is a bit obnoxious.....

-----Post Update-----

aHHHH...hit refresh and it posts again!! Now I understand why a lot of people seem to be repeating themselves

-----Post Update-----

aHHHH...hit refresh and it posts again!! Now I understand why a lot of people seem to be repeating themselves

-----Post Update-----

doh!!

-----Post Update-----

doh!!

Thank you for the solution

I was trying
$_ =~ /".*"/;
but it wasnt wrking

The only issue is that I dont have only 4 fields.I have different line length.Hence Please suggest me a program where it greps for all strings between double quotes and also prints the last field of the line

Code:

$foo = '"abc" def "ghi" jkl "mno" 1';
$foo =~ s/\s+\S+\s+/\//g;
$foo =~ tr/"//d;
print $foo;

Now what other exceptions to your sample data are there? Unbalanced quotes? Embedded quotes? No white space before the last column?

Code:

while(<DATA>){
	my @tmp=$_=~/(".*?"|[^ ]+$)/g;
	print join "/", map {s/"//g;$_} @tmp[0..$#tmp-1];
	print " ",$tmp[$#tmp];
}
__DATA__
"abc" def "ghi" jkl "mno" 1
"ABC" def "GHI" 2
"111" def "222" jkl "333" hlm "444" 3