Thanks it is working fine....
Anish
----- Original Message -----
From: "Dave Gray" <[EMAIL PROTECTED]>
To: "beginners perl" <beginners@perl.org>
Sent: Monday, January 17, 2005 11:43 PM
Subject: Re: Substitute Varaible
> On Mon, 17 Jan 2005 16:11:54 +0530, Anish Kumar K.
> <[EMAIL PROTECTED]> wrote:
> > Hi I need help regarding substituion of varaibles with values
> >
> > Say I have a txt file (a.txt)
> >
> > which has only one line:
> > Hi $name
> >
> > The PL file
> > ========
>
> use strict;
> use warnings;
>
> > open INPUT, "a.txt";
>
> Always check the success of file opens!
> open INPUT, '< a.txt' or die "couldn't read a.txt: $!\n";
>
> > my $name="Anish";
> > my $temp="";
> > while (<INPUT>)
> > {
> > $temp=$temp.$_;
>
> This could also be written as:
> $temp .= $_;
> Personal preference, I guess.
>
> > }
> > close(INPUT);
> > print "Content is: $temp";
> >
> > In the output I want the $name to get as Anish..O/P like Hi Anish
>
> Check out the eval built-in:
> close(INPUT);
> # evaluate the content of $temp as perl[1]
> # this won't work if there are any double quotes in $temp
> $temp = eval qq/"$temp"/;
>
> There is probably a better way to do what you're trying to
> accomplish... can you give us a bigger picture?
>
> HTH,
> Dave
>
> [1] <http://www.perldoc.com/perl5.8.4/pod/func/eval.html>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
