Reply to thread

Message

[QUOTE="A. Sinan Unur, post: 4797363"]
To the OP: This is not a "write my code for me" service. If you do not
put any effort into helping others help you, you cannot expect others to
put much effort into helping you.

Or, you get:

use strict;
use warnings;

missing.

Now, Shane,

1. Why are you slurping the whole file only to process it line by line?
2. What is $linenumber?
3. Since you are not actually looping through all the elements of @list,
do you really expect this to do what the OP asked for?
4. You are using $1 without checking if the regex actually matched.
5. Since you did not anchor the regex, it will also match lines such as

Hello -555- World!

This is clearly against the specs.

6. The regex you specified will also match the trailing dash. Again, the
OP was asking the exact opposite.

Here is something that will actually work:

#!/usr/bin/perl

use strict;
use warnings;

while(<DATA>) {
if( /^([\d-]+\d+)-/ ) {
print "$1\n";
}
}

__DATA__
123-12-23-Bottom Bracket
561-318-001-Cowling Spacer 2
453-2193-Fitting Hose

D:\Home\asu1\UseNet\clpmisc> www
123-12-23
561-318-001
453-2193

Please read the posting guidelines for this group.

Sinan
[/QUOTE]

Verification