in reply to regex pattern match
A quick addition to the problem .. I have a separate part of text that i need to replace .. for eg:
I/p(read from a file) is of the form:
Could some one please help me debug this code..??
and the o/p needs to look something like :"ABC","DEF","This is a test","Hello";
In short i need to replace pattern within quotes in a line .. I need help with the pattern match .. please help ..!!! Update:"ABC","DEF","This is a substitution","Hello";
Could some one please help me debug this code..??
#!/usr/bin/perl -w my $variable; my @fields; my $line =0 ; use vars qw($current_path $filename); print "Enter the desired path: "; my $path = <STDIN>; chomp( $path ); my $in_file = "test.txt"; my $out_file = "testout.txt"; open (DATA, "<$in_file") or die "Can't open $in_file: $!\n"; open (OUT, ">$out_file") or die "Can't open $out_file: $!\n"; while ( <DATA> ) { chomp; my ($first, $last ) = /(.+",)(.+)/; $last =~ s//"\n$first"/g; my @parameters = split /"\s*,\s*"/, $first; $parameters[1] =~ tr/"//d; my $path = "$path\\"; my $new_path = $path.$parameters[1]; @array = split(/,/,$last); foreach $entry(@array) { $entry =~ tr/"//d; $entry =~ s|(.+)\\|$1::|; ($current_path,$filename) = split/::/,$entry; $last =~s/$current_path/$new_path/ig; #rename the last entry which con +tains a path to folder name with the new path print "$last\n"; } print "\n"; } close DATA; close OUT;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: regex pattern match
by AnomalousMonk (Archbishop) on Apr 01, 2013 at 23:00 UTC | |
Re^2: regex pattern match
by hdb (Monsignor) on Apr 01, 2013 at 12:33 UTC |
In Section
Seekers of Perl Wisdom