In article <[EMAIL PROTECTED]>, Raghu Murthy wrote:

> I tried doing the following
> 
> next if s?\([  /]\)\./?\1?g;

That looks to me more like sed (as best I can tell) and not Perl.

> For some reason it is not removing the ./ from the file. Any suggestions
> are welcome.
> The file is in this format
> 
> a b  ./dsfj/dfl/dksl             ./ksdfl/dsld
> 
> c d  ./sds/dsl/dksld           ./kdf/ksd/ksdk

Well, you could always use:

tr/\.\///d;
print;

...which would give you this:
a b  dsfjdfldksl             ksdfldsld

c d  sdsdsldksld           kdfksdksdk


Or this:
s|\./||g;
print;

...which produces this:
a b  dsfj/dfl/dksl             ksdfl/dsld

c d  sds/dsl/dksld           kdf/ksd/ksdk

...if that is what you want (I'm not quite sure).

-Kevin


-- 
Kevin Pfeiffer


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to