reading var from the file

perlb has asked for the wisdom of the Perl Monks concerning the following question:

I have the Temp varaible store in a file. It's value ends with the number and a slash (/) at the end. Some its value is store in one line and some time it is store in 2 line with carriage return at he end of first line

- Temp: abds.wewe/fssaf:erferr@abc.co
c.us:342/
- Temp: abds.wewe/fssaf:erferr@abc.coc.us:342/

Does any one know how do I can get this value in a varaible...

Below code only gets the first line only, I want to get the value where its end with "/".

sub matchAttribute 
{
    $pos = index($_, " ");
    $var11 = substr($_, $pos);
    $var11 =~ s/^\s+//;    
        return $var11;
}

while loop
if (/^Temp:/){
    chomp;
    $var_temp = matchAttribute ($_);
    print "var_temp= $var_temp";
}
[download]

Current Output:
var_temp= abds.wewe/fssaf:erferr@abc.co
Expected Out put:
var_temp= abds.wewe/fssaf:erferr@abc.coc.us:342/
Does any one has an idea how to do this...
Thanks,

Comment on reading var from the file Download Code

Replies are listed 'Best First'.
Re: reading var from the file by cdarke (Prior) on May 17, 2008 at 15:32 UTC
The trick is to recoginse that the records do not just end in "\n", but in "/\n": `use strict; use warnings; local $/ = "/\n"; while (my $var_temp = <DATA>) { $var_temp =~ s/\n//g; # Strip out new-lines print "$var_temp\n"; } __DATA__ abds.wewe/fssaf:erferr@abc.co c.us:342/ abds.wewe/fssaf:erferr@abc.coc.us:342/` [download] This gives : `abds.wewe/fssaf:erferr@abc.coc.us:342/ abds.wewe/fssaf:erferr@abc.coc.us:342/` [download]	[reply] [d/l] [select]
Re: reading var from the file by mwah (Hermit) on May 17, 2008 at 16:00 UTC
if cdarke's method doesn't work (if the end of the record /\n is not always consistent), you may parse the whole file the "hard way": use strict; use warnings; my $regexp = qr{ Temp: # hit => the temp: keyword (.+?) # capture what follows (?: # until (?=[\s-]+Temp) # another temp: shows up \| # or \s*\z # the end of the data is here ) }msx; open my $fh, '<', 'tmpvar.dat' or die "wtf, $!"; { local $/; # slurp the entire file in +to my $content = <$fh>; # a buffer while($content =~ /$regexp/g) { # and extract each temp: r +ecord (my $var_temp = $1) =~ tr/\r\n//d; # delete new line (if any) print "var_temp=$var_temp\n" # and print } } close $fh; [download] Regards mwa	[reply] [d/l]
Re: reading var from the file by pc88mxer (Vicar) on May 17, 2008 at 15:21 UTC
Update: I think I initially misread what you what to do, so here's a different answer. It seems you want to collect lines until the next line that begins with `Temp:`. The pattern for this is: `my $temp; while (<>) { chomp; if (s/^Temp:\s*//) { if (defined($temp)) { ...use $temp... }; $temp = $_; } else { $temp .= $_; } } if (defined($temp)) { ...use $temp... }` [download] My original answer: Read more... (1013 Bytes)	[reply] [d/l] [select]
Re^2: reading var from the file by perlb (Initiate) on May 17, 2008 at 15:33 UTC
Input file also an other varaible which ends on the one line. Only one varialbe has its value store in 2 lines ....	[reply]


Don't ask to ask, just ask
	PerlMonks