Re^2: Replacing a pesky pair of quotes.

I don't know what else I can think my data is. The example data I supplied is what it is.

The crux of my code is

    open(INFILE,"$ew_sites_file") || die "Cant open $ew_sites_file for
+ reading $!\n";
    while($line = <INFILE>) {
        chomp $line;
        ($unused, $site, $date, $city, $state, $facility, $unused, $dd
+url) = split(/\t/,$line); #tab-delimited file
        $ddrul =~ s/"//g;
        $ddurl =~ s/\r//;  #lose that bad newline break
        
        #build the registration site lookup flatfile : state and javas
+cript URL    
        open(OUTFILE,">>$ew_regist_parse_file") || die "cant open $ew_
+regist_parse_file, $!\n"; 
        print OUTFILE "$state|$start_tag$site$inbetween$city$inbetween
+$state$inbetween$date$inbetween$ddurl$semicolon$city, $state : $date$
+endtag\n";
        close OUTFILE;        
        
        #build the locations flatfile            
        open(OUT2FILE,">>$ew_locate_parse_file") || die "cant open $ew
+_locate_parse_file, $!\n"; 
        print OUT2FILE "$state|$city|$facility|$date|$ddurl\n";
        close OUT2FILE;
    }
    close INFILE;
[download]

The warnings say that the $ddrul =~ s/"//g; is using an initalized value, which I don't understand because it is. The output is two files, an example of one (the simpler one) is:

TX|Austin|University of Texas at Austin|11-Oct| http://www.utexas.edu/
+cee/tcc/forms/tcclargemap.pdf
TX|Houston|University of Houston - Clear Lake|19-Oct|"http://prtl.uhcl
+.edu/portal/page?_pageid=328,217631,328_217645&_dad=portal&_schema=PO
+RTALP"
TX|El Paso|University of Texas - El Paso|25-Oct| http://www.utep.edu/s
+earch/campusmaplarge.html
[download]

Still with the extra quotes.

Comment on Re^2: Replacing a pesky pair of quotes. Select or Download Code

Replies are listed 'Best First'.
Re^3: Replacing a pesky pair of quotes. by Transient (Hermit) on Aug 11, 2005 at 20:40 UTC
a `use strict` would have caught the mispelled variable "ddrul" as opposed to what it should be - "ddurl"	[reply] [d/l]
Re^4: Replacing a pesky pair of quotes. by hmbscully (Scribe) on Aug 11, 2005 at 20:50 UTC
THANK YOU! I knew it was something obvious. As for `use strict;`, I am very aware that I don't use it. I have a very old perl install and the unix admin has something horked so that invoking strict means the script will never work, no matter how simple or how correctly coded it is. But tomorrow, I get a new shiny linux box with tasty up-to-date perl and my excuses go away!	[reply] [d/l]
Re^3: Replacing a pesky pair of quotes. by chibiryuu (Beadle) on Aug 11, 2005 at 20:56 UTC
I'd probably have written it this way. `while (<INFILE>) { my (undef, $site, $date, $city, $state, $facility, undef, $ddurl) += /\G"?([^\t]*?)"?(?:\t\|[\r\n]+$)/g; }` [download]	[reply] [d/l]