On 2/16/06, Xavier Noria <[EMAIL PROTECTED]> wrote:
>
> On Feb 16, 2006, at 18:35, Mike Martin wrote:
>
> > I have problems with reading in a file variable in
> > Spreadsheet::Parsexcel.
> > This is the relevant code.
> >
> >
> >
> > use strict;
> > use warnings;
> >
> > open (INPUT,"tele1");
> > my @input1=<INPUT>;
>
> If those are filenames it would be more robust to chomp them right here:
>
> chomp @input1;
>
> > foreach my $input1 (@input1){
> > my @out1=split (/\./,$input1);
> > my $ext='.tab';
> > my $output1= "$out1[0]$ext";
>
> To change the extension you may do something more simple like
>
> $input1 =~ s/[.]\w+$/.tab/;
>
> > open (OUT1,">>",$output1);
> > open (IN1,$input1) or die $!;
> > print $input1;
> > my $excel_file=$input1;
> > use Spreadsheet::ParseExcel;
> > my $oBook =
> > Spreadsheet::ParseExcel::Workbook->Parse($excel_file) ;
> > my($iR, $iC, $oWkS, $oWkC);
> >
> > If I put in a literal file name it works - any ideas
>
> Debug it:
>
> print $excel_file and exit;
Done that its fine
I have even opened a FH a printed - also fine (apart from bin garbage of
course)
Just tried
my $excel_file='literal file name';
print $excel_file;
prints fine
just Parse only seems to accept a lteral name
>
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
>
>
>
