in reply to Re: Removing Spaces From A File
in thread Removing Spaces From A File

Because it writes this
------    ------
NAME      PWD
------    ------
Fred F    3733 3
Barney    227630
Dino T    3466 8

[download]
I guess I am doing something else incorrectly. Thanks anyway.
--
ellem@optonline.net
There's more than one way to do it, but only some of them actually work.

Replies are listed 'Best First'.
Re (3): Removing Spaces From A File
by VSarkiss (Monsignor) on Mar 04, 2003 at 16:30 UTC

    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.

[reply]
[d/l]
[select]
      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]

In Section Seekers of Perl Wisdom