Re (3): Removing Spaces From A File

The point is, after you remove the blanks in $name, you then assign a new value to it before doing the write. The output you're seeing is the result of that second assignment, not the result of the substition.

As xmath points out below, you're copying around a lot of stuff, and it's not clear why. You may need to rethink part of your algorithm.

Comment on Re (3): Removing Spaces From A File Select or Download Code

Replies are listed 'Best First'.
Re: Re (3): Removing Spaces From A File by ellem (Hermit) on Mar 04, 2003 at 17:08 UTC
Here's what I got: `my($name, $pwd); while(<LIST>) { chomp; $name = $pwd = $_ ; $name =~ s/\s//g ; $pwd =~ s/\s//g ; $pwd =~ tr [ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvw +xyz] [2223334445556667778889990022233344455566677788899 +900] ; write NEWFILE ; }` [download] Seems like it is a little clunky. Not the way I imagined it but it does work. I was thinking more along the lines of: Aaaa aaaa --> Aaaaaaaa --> 222222222 --> 22222 $name ------> $name -----> $pwd -------> Output Read file --> Remove spaces -> Transliterate -> Print file -- ellem@optonline.net There's more than one way to do it, but only some of them actually work.	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re (3): Removing Spaces From A File
by ellem (Hermit) on Mar 04, 2003 at 17:08 UTC

my($name, $pwd);
    while(<LIST>) {
        chomp;
        
        $name = $pwd = $_ ;
        $name =~ s/\s//g ;
        $pwd =~ s/\s//g ;
        $pwd =~ tr  [ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvw
+xyz]
                    [2223334445556667778889990022233344455566677788899
+900] ;
        
        write NEWFILE ;
        
        }
[download]

[reply]
[d/l]