how to substiture a letter in a string using perl?

[Paul]

hi, there,

I have a date format string, like $mydate='Wed Feb 1 17:33:20 2006';

I dont want to have the space and : in my string, so I use

$mydate =~ tr/[ ,:]/a/; to get a new string as
$mydate='WedaFebaa1a17a33a28a2006';

The question is how can I get rid all the "a" in this string? or how to
get $mydate='WedFeb11733202006' from $mydate='Wed Feb 1 17:33:20
2006'?


thanks.

 

[Xicheng]

hi, there,

I have a date format string, like $mydate='Wed Feb 1 17:33:20 2006';

I dont want to have the space and : in my string, so I use

$mydate =~ tr/[ ,:]/a/; to get a new string as

$mydate='WedaFebaa1a17a33a28a2006';

The question is how can I get rid all the "a" in this string? or how to
get $mydate='WedFeb11733202006' from $mydate='Wed Feb 1 17:33:20
2006'?

$mydate =~ tr/ ://d;

 

[A. Sinan Unur]

I have a date format string, like $mydate='Wed Feb 1 17:33:20 2006';

I dont want to have the space and : in my string, so I use

$mydate =~ tr/[ ,:]/a/; to get a new string as
$mydate='WedaFebaa1a17a33a28a2006';

The question is how can I get rid all the "a" in this string? or how
to get $mydate='WedFeb11733202006' from $mydate='Wed Feb 1 17:33:20
2006'?

Please feel free to read the documentation.

D:\Home\asu1\UseNet\clpmisc> perldoc -f tr
tr/// The transliteration operator. Same as "y///". See perlop.

Then find tr in perldoc perlop:

#!/usr/bin/perl

use strict;
use warnings;

my $mydate = 'Wed Feb 1 17:33:20 2006';

$mydate =~ tr/ ://d;

print "$mydate\n";

__END__

 

[DJ Stunks]

hi, there,

I have a date format string, like $mydate='Wed Feb 1 17:33:20 2006';

I dont want to have the space and : in my string, so I use

$mydate =~ tr/[ ,:]/a/; to get a new string as
$mydate='WedaFebaa1a17a33a28a2006';

The question is how can I get rid all the "a" in this string? or how to
get $mydate='WedFeb11733202006' from $mydate='Wed Feb 1 17:33:20
2006'?


thanks.

oh, that's easy:

$mydate='Wed Feb 1 17:33:20 2006';
$mydate =~ tr/[ ,:]/a/;
$mydate =~ tr/a/b/; # no more a's

no charge, glad to help

-jp