On Fri, 2002-11-22 at 05:44, John W. Krahn wrote:
> Mike wrote:
> >
> > I'm getting confused - I have the following script
> >
> > open(DESK,"gtkdoclist") or die "cant open";
> > @desk1=<DESK>;
> > foreach $desk1 (@desk1){
> > chomp $desk1;
> > print "$desk1\n";
> > $gtkdoc1=system("grep -h gtk_doc_min_version= $desk1");
> > chomp $desk1;
> > print "$gtkdoc1";
> >
Solved the immediate problem but now from this script
#!/usr/bin/perl -w
open(DESK,"gtkdoclist") or die "cant open";
@desk1=<DESK>;
foreach $desk1 (@desk1){
print "$desk1";
$desk3=$desk1;
$gtkdoc1=`grep gtk_doc_min_version= $desk1`;
chop $gtkdoc1;
chomp $gtkdoc1;
chomp $gtkdoc1;
print "$gtkdoc1\n";
@gtkdoc2=split /=/, $gtkdoc1;
print "$gtkdoc2[1]\n";
$gtkdoc3=$gtkdoc2[1];
$mult='10';
$gtkdoc4=$gtkdoc3 * $mult;# this is the error
print $gtkdoc3
$gtkdoc5=$gtkdoc1;
gives the following error
atk/configure.in
gtk_doc_min_version=0.6
0.6
Filehandle main::0.6 never opened at ./gtkdocchk line 17, <DESK> line
41.
as you can see (0.6) my var for calculation seems in scope but
calculation is not taking place
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
