Modify string on command line

[Markus Dehmann]

What's the easiest way to modify a string on the command line (using
perl)?

I want to change
a/b/c/d
to
a_b_c_d

The following line does it, but it's long and cumbersome:
perl -e '$ARGV[0] =~ s#/#_#g; print $ARGV[0]' "a/b/c/d"

Isn't there a special perl switch that puts $ARGV[0] into $_ or so?
Then, I could just say:
perl -e 's#/#_#g; print' "a/b/c/d"

And it would be better without the "print" ...

Thanks!
Markus

 

[Anno Siegel]

What's the easiest way to modify a string on the command line (using
perl)?

I want to change
a/b/c/d
to
a_b_c_d

The following line does it, but it's long and cumbersome:
perl -e '$ARGV[0] =~ s#/#_#g; print $ARGV[0]' "a/b/c/d"

Isn't there a special perl switch that puts $ARGV[0] into $_ or so?
Then, I could just say:
perl -e 's#/#_#g; print' "a/b/c/d"

No switch, but you can use "for":

perl -le 'tr{/}{-} and print for shift' a/b/c/d

And it would be better without the "print" ...

Huh?

Anno

 

[Brian Wakem]

What's the easiest way to modify a string on the command line (using
perl)?

I want to change
a/b/c/d
to
a_b_c_d

The following line does it, but it's long and cumbersome:
perl -e '$ARGV[0] =~ s#/#_#g; print $ARGV[0]' "a/b/c/d"

Isn't there a special perl switch that puts $ARGV[0] into $_ or so?
Then, I could just say:
perl -e 's#/#_#g; print' "a/b/c/d"

And it would be better without the "print" ...

$ echo "a/b/c/d" | perl -pe 's#/#_#g'
a_b_c_d

 

[Tad McClellan]

What's the easiest way to modify a string on the command line (using
perl)?

I want to change
a/b/c/d
to
a_b_c_d

perl -le 'tr#/#_#, print for @ARGV' "a/b/c/d"

Isn't there a special perl switch that puts $ARGV[0] into $_ or so?

perl -e '$_=shift; tr#/#_#; print' "a/b/c/d"

And it would be better without the "print" ...

echo "a/b/c/d" | perl -pe 'tr#/#_#'

 

[axel]

What's the easiest way to modify a string on the command line (using
perl)?

I want to change
a/b/c/d
to
a_b_c_d

The following line does it, but it's long and cumbersome:
perl -e '$ARGV[0] =~ s#/#_#g; print $ARGV[0]' "a/b/c/d"

Isn't there a special perl switch that puts $ARGV[0] into $_ or so?
Then, I could just say:
perl -e 's#/#_#g; print' "a/b/c/d"

One method would be:

echo "a/b/c/d" | perl -pe 's#/#_#g'

Axel

 

[Markus Dehmann]

What's the easiest way to modify a string on the command line (using
perl)?

I want to change
a/b/c/d
to
a_b_c_d

The following line does it, but it's long and cumbersome:
perl -e '$ARGV[0] =~ s#/#_#g; print $ARGV[0]' "a/b/c/d"

Isn't there a special perl switch that puts $ARGV[0] into $_ or so?
Then, I could just say:
perl -e 's#/#_#g; print' "a/b/c/d"

And it would be better without the "print" ...

Thanks for your answers! Based on your suggestions, the following is
also possible, as I just found out:

perl -pe 's#/#_#g' <(echo "a/b/c")

(not that it's better, but it's an interesting variation using process
substitution ...)

Markus

 

[Lazrado Allan \(IFIN CSW WS MS\)]

What's the easiest way to modify a string on the command line (using
perl)?

I want to change
a/b/c/d
to
a_b_c_d

The following line does it, but it's long and cumbersome:
perl -e '$ARGV[0] =~ s#/#_#g; print $ARGV[0]' "a/b/c/d"

Isn't there a special perl switch that puts $ARGV[0] into $_ or so?
Then, I could just say:
perl -e 's#/#_#g; print' "a/b/c/d"

And it would be better without the "print" ...

Thanks for your answers! Based on your suggestions, the following is
also possible, as I just found out:

perl -pe 's#/#_#g' <(echo "a/b/c")

(not that it's better, but it's an interesting variation using process
substitution ...)

Markus

The following also works fine.(a variant of what you described)
echo "a/b/c" | perl -pe 's#/#_#g'