Hi John
Refer to the comments
foreach $i (@dir) {
*#$i here refers to each content of your array @dir, which are file names*
my @title = split /\./, $dir[$i];
*#$i here refers to the array index, which should be number*
$name = $title[0];
print FH "$name\n";
}
Zheng
2012/6/10 John M Rathbun
>
Hi John,
If you're refering to OpenGL-0.66 from CPAN. I just checked the package,
there is a guideline file for you called "INSTALL"
Looks you need to update your environment with some OpenGL headers and lib
files, you can find details in the file.
DZ
2012/4/21 John Riselvato
> Howdy,
> how
Hi Viki,
Dunno why you can not use ppm -install.
If you are using a proxy, you can specify the proxy for ppm in env.
If your server is offline server, try to use "perl Makefile.pl; make",
basically the Makefile.pl resides in the package.
DZ
2012/4/21 viknesh salivahanan
> Hi Gurus,
>
> Need a
Hi Somu,
Of course if can be done by using regex, but if there is a single line
command can do the job, that's absolutely more efficient, and less bug.
Unless you're eager to polish your Perl skill. =D
Du Zheng
2012/4/14 Somu
> OK. Can i ask "WHY?"
> Why can't it be done using regex. Isn't a
Hi Som,
Looks like you want to do the minimal match, so you can refer to the code:
$line =~ s/(<.*>)?//;
=>
$line =~ s/<.*?>//g;
But there is still a problem,you have '<' and '>' placing in different
lines, so you can try to read all the file content into a variable, and
replace them once for al
Hi Lina,
A simple solution I can provide is:
while (my $line = <$fh>){
if ($line =~ /^A$/){
# read 8 lines
# print each line
}
}
2012/3/11 lina
> On Sun, Mar 11, 2012 at 10:45 PM, lina wrote:
> > A
> > 7.803481E-01 8.228973E-01 7.515242E-01
