string extraction

[sappleg]

Hi Guys,

I am trying to extract and print a string, which also includes a 'period'. I want all the text before the 'period' sign. For example, the text looks like:

SREI120RE04.
SREI5151RE04.
SREI5151RE05.
SREI5151RE06.

I want to print only text before the period sign, so my output will be:

SREI120RE04
SREI5151RE04
SREI5151RE05
SREI5151RE06

I am trying the following code, but it is not working:
($site is where the above string is defined)

@value=split({$site},".")[1];
foreach $worstation (@value)
{
print "$counter $worstation $date \n";
}

Please suggest and help.
Thanks in advance.

 

[KevinADC]

You could just remove the dot from the end of the string, or if it is the only dot use tr///:

$site =~ tr/.//d;
print $site;

There is no need to use split, and your usage is not correct anyway. Did you read the split() functions manpage?

http://perldoc.perl.org/functions/split.html

------------------------------------------
- Kevin, perl coder unexceptional!

 

[stevexff]

A dot is a special character in a regex, which is what split expects as its first parameter. If you went down that route, you'd have to escape it

my @x = split(/\./, $site);

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[sappleg]

Thank you guys. It's working now using the above methods.

Quite Appreciate it.