SHOW:
|
|
- or go back to the newest paste.
| 1 | - | $txt="Arkarmit ithaaatokkk ide? aaaztamindenit. tokkkal-vonoval"; |
| 1 | + | $txt_original="Arkarmit ithaaatokkk ide? aaaztamindenit. tokkkal-vonoval"; |
| 2 | $txt_replaced=$txt_original; | |
| 3 | - | $txt =~ /aaa(\w{5})/;
|
| 3 | + | |
| 4 | - | # Ami a $1-be kerul. Onnan atmentjuk $text_to_replace-be |
| 4 | + | |
| 5 | $txt_replaced =~ s/aaa(\w{5})/aaa12345/g;
| |
| 6 | - | $txt =~ s/$text_to_replace/12345/g; |
| 6 | + | # Ami a $1-be kerul. Onnan atmentjuk $text_to_replace -be |
| 7 | - | print($txt); |
| 7 | + | |
| 8 | ||
| 9 | $txt_replaced =~ s/$text_to_replace/12345/g; | |
| 10 | ||
| 11 | print("Original: ${txt_original}\n");
| |
| 12 | print("Replaced: ${txt_replaced}\n"); |
