perl one liner

Comment on perl one liner
Re: perl one liner by lakshmananindia (Chaplain) on Apr 02, 2009 at 13:40 UTC
Try to use the following `($var2=$var1) =~ s/\///g;` [download] --Lakshmanan G. The great pleasure in my life is doing what people say you cannot do.	[reply] [d/l]
Re: perl one liner by moritz (Cardinal) on Apr 02, 2009 at 13:41 UTC
The trick is to assign it first, and then substitute it only on the second variable. `$ perl -E '$var1 = "10/02/2009"; ($var2 = $var1) =~ s{/}{}g; say $var2 +' 10022009` [download]	[reply] [d/l]
Re: perl one liner by eff_i_g (Curate) on Apr 02, 2009 at 13:41 UTC
Almost. You need to do the substitution after the assignment, not assign the results of the substitution: `($var2 = $var1) =~ s!/!!;`	[reply] [d/l]
Re: perl one liner by shmem (Canon) on Apr 02, 2009 at 13:42 UTC
Do the assignment and substitute thereafter: `($var2 = $var1) =~ s!/!!;` [download] The substitution above operates on `$var2`.	[reply] [d/l] [select]
Re: perl one liner by irah (Pilgrim) on Apr 02, 2009 at 13:43 UTC
`my ($day,$month,$year) = split("/",$date);` [download]	[reply] [d/l]
Re^2: perl one liner by johngg (Abbot) on Apr 02, 2009 at 15:42 UTC
`my ($day,$month,$year) = split("/",$date);` I think that code is answering a different question, but you could have answered the OP's one by adding a join. `my $var1 = q{10/02/2009}; my $var2 = join q{}, split m{/}, $var1;` [download] Another way would be to use tr, for details look in Quote Like Operators; `my $var1 = q{10/02/2009}; ( my $var2 = $var1 ) =~ tr{/}{}d;` [download] I hope this is of interest. Cheers, JohnGG Update: Added `my` declarations to second code snippet.	[reply] [d/l] [select]
Re: perl one liner by Bloodnok (Vicar) on Apr 02, 2009 at 14:28 UTC
The majority of the other answers illustrate the answer (varying only in the RE delimiters) to be found in recipe 6.1 of the Perl Cookbook. I'd strongly recommend you purchase a copy... A user level that continues to overstate my experience :-))	[reply]


Don't ask to ask, just ask
	PerlMonks

perl one liner

The best material for plates (tableware) is: