substitute forward slash for any backslash 2

[nfaber]

Hello all,

I am processing a text file and I need to replace all the backslashes "\" in the file with forward slashes "/". Here is my code so far:

open (OUT, ">/home/opc_op/log/pgp_in_process.log") or die ("Error opening log file: $1");

my $out = "";		# undefine $out
my $saw_error = 0;  # Initialize variable to 0

foreach(@diff) {
    chomp;
	s/\//\\/g;     # HERE  IS MY SUBSTITUTION
    next if /^\s*$/;					
    if (/^ERROR--/ || /^-/) {			
        if ($out) {						
            $out =~ s/(--)\s+/$1/;		
            print (OUT "$out\n");		
			$out = "";					
            $saw_error--;				
        }
        if (/^ERROR--/) {				
            $saw_error++;				
        }
    }
    if ($saw_error) {					
        if ($out =~ /\S$/ && /^\S/) {	
            $out .= " ";				
        }
        $out .= $_;						
    }
}

Mike V. you migt recognize this script.

Thanks,

Nick

 

[zephan]

Well, you're may be doing the opposite of what you want

 s/\//\\/g;     # HERE  IS MY SUBSTITUTION

 s/\\/\//g;     # HERE  IS MY SUBSTITUTION

No ?

 

[nfaber]

Thanks for the reply zephan, I tried it both ways and either way it makes no changes to the output.

 

[nfaber]

Here is the contents of the @diff array via:

print "@diff\n";

a1122
 -------------------------------------------------------------------------------------
 Mon Aug  2 09:20:30 2004
 gpg: encrypted with ELG-E key, ID BC8F2CE8
 gpg: encrypted with 2048-bit ELG-E key, ID F7BA222B, created 2002-01-28
       "FleetBoston Financial DTS <Data_Transmission_Svcs@Fleet.Com> "
 gpg: decryption failed: secret key not available
 ERROR--
     Test error placed in file
     No Commands failed
     Account Name:  FLEET
     File Name:     d:\pgp_user_data\inbound\fleet\vaz.txt.pgp
 ERROR--
     Could not move the following file to detainment
     Filename:     d:\pgp_user_data\inbound\fleet\vaz.txt.pgp	
 Can't call method "code" on an undefined value at inbound.pl line 179.
 -------------------------------------------------------------------------------------
 .

 

[nfaber]

zephan,

Sorry, you were right. This seems to work:

s/\\/\//g; # HERE IS MY SUBSTITUTION

I had it backwards, the problem is my eyes, I work between Unix and NT so often, I had a hard time seeing the change.

 

[mikevh]

You could use a different delimiter to make it more readable, e.g. curlie braces (and then you don't need to escape the /): s{\\}{/}g