If you use the /i switch in combination with 's///', it will capture any case permutation of whatever it is you are replacing, and if you use that captured text, it will appear in the exact same case permutation as it was captured. This will work no matter what you are trying to capture.
while ( chomp( my $line = <DATA> ) ) {
$line =~ s/(Fred)/"$1"/i;
print "$^C
root@who1# perl
while ( my $line = <DATA> ) {
$line =~ s/(Fred)/"$1"/i;
print $line;
}
__DATA__
Hello, my name is FRED!
fREd went to the store.
Nobody was home, except for freD.
Output:
Hello, my name is "FRED"!
"fREd" went to the store.
Nobody was home, except for "freD".
You mention in a later post that you are looking for something more generic that will work for anything, not just names. Perhaps this is what you are looking for?
my $tag = 'jane';
while ( <DATA> ) {
s/($tag)/##$1##/i; # you might also want a /g here as well.
print;
}
__DATA__
- John is following jane
- John is following Jane
Output:
- John is following ##jane##
- John is following ##Jane##
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|