OK -- so you want to delete the 'BSC-' and display the original, followed by the new version. The following code does that:
#!/usr/bin/perl -w use strict; { while(<DATA>) { # Read a line, copy it, and delete 'BSC-' in the copy. chomp; my $copy = $_; $copy =~ s/BSC-//; # Print the original line and the copy. print "$_ $copy\n"; } } __DATA__ -rw-rw-rw- 1 bsmbin bsmbin 303 Dec 3 02:06 BSC-20041202143000 -rw-rw-rw- 1 bsmbin bsmbin 303 Dec 4 23:00 BSC-20041204110000
On my system, it produces the following output:
-rw-rw-rw- 1 bsmbin bsmbin 303 Dec 3 02:06 BSC-20041202143000 -rw-rw-r +w- 1 bsmbin bsmbin 303 Dec 3 02:06 20041202143000 -rw-rw-rw- 1 bsmbin bsmbin 303 Dec 4 23:00 BSC-20041204110000 -rw-rw-r +w- 1 bsmbin bsmbin 303 Dec 4 23:00 20041204110000
Now, you've had a bit of a rough time in the Chatter Box lately .. I recommend that, unless you have a quick question, don't bother asking there. Post a node instead, explaining a) what you are trying to do, b) the approaches you've tried and c) where you think you're stuck. Then don't complain your node isn't getting any replies -- that's only going to reduce the chances you'll get replies.
And when in doubt, make your examples as simple as possible. Trying to wade through
-rw-rw-rw- 1 bsmbin bsmbin 303 Dec 3 02:06 BSC-20041202143000
is tough .. I would have suggested just trying to change
BSC-20041202143000
to
20041202143000
And for that, just reading Learning Perl or a couple of pages on this site should have helped you solve the problem.
Good luck.
In reply to Re^8: Sorting names using Regular Expressions and placing them in different Files.
by talexb
in thread Sorting names using Regular Expressions and placing them in different Files.
by Kiran Kumar K V N
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |