attached is a copy of the excel file if it helps.
> -----Original Message-----
> From: Paul Kraus [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, January 16, 2003 11:03 AM
> To: 'Dan Muey'; 'Perl'
> Subject: RE: Where is the new line coming from.
>
>
> come to think of it. This "newline" I am getting must be a
> result of windows just dropping my prompt to the next line.
> So I assumed it was there... Stupid me. I am used to Linux
> which does not do this in the shell.
>
> Ok then this brings me full circle.
> When I run this program on UNIX it makes an excel spread
> sheet that has little square strange characters at the end of
> every row in the last cell. I assumed they where new lines
> but I have ruled this out as I am not printing any new lines.
> Any idea on how to fix this? It works in windows but not on
> my sco box.
>
> #!/usr/bin/perl
>
> open IPO,('ipo.txt');
> $count=2;
> $lineref=['PEL Supply Company - IPO Price List',
> ['Item Code','Description','List','Vendor']];
> $addline = sub {$worksheet->write_row($count,0,$lineref)};
>
> #setup excel spread sheet
> use Spreadsheet::WriteExcel;
> my $workbook = Spreadsheet::WriteExcel->new("ipo.xls");
> $worksheet = $workbook->addworksheet();
> $format1 = $workbook->addformat();
> $format2 = $workbook->addformat();
> $format3 = $workbook->addformat();
> $format4 = $workbook->addformat();
>
> #Format 1 (Header Row: Bold, BG Yellow, Bottom Border)
> $format1->set_bold(); $format1->set_bg_color('yellow');
> $format1->set_bottom();
>
> #Format 2 (List Column Right justified set to currency)
> $format2->set_align('right'); $format2->set_num_format(8);
>
> #Format 3 (List Column Header - Bold, Yel BG, Bottom Border,
> Right Justified) $format3->set_bold();
> $format3->set_bg_color('yellow'); $format3->set_bottom();
> $format3->set_align('right');
>
> #Format 4
> $format4->set_bold();
> $format4->set_bg_color('yellow');
> $format4->set_merge();
>
>
> #Format Columns
> $worksheet->set_column(0,0, 25);
> $worksheet->set_column(1,1, 44);
> $worksheet->set_column(2,2, 10,$format2);
> $worksheet->set_column(3,3, 15); $worksheet->freeze_panes(2,0);
>
> #Write Header Row $worksheet->write(0,0,$lineref->[0],$format4);
> $worksheet->write_blank(0,1,$format4);
> $worksheet->write_blank(0,2,$format4);
> $worksheet->write_blank(0,3,$format4);
>
> $worksheet->write(1,0,$lineref->[1]->[0],$format1); # Item Code
> $worksheet->write(1,1,$lineref->[1]->[1],$format1); # Item
> Description
> $worksheet->write(1,2,$lineref->[1]->[2],$format3); # Item List
> $worksheet->write(1,3,$lineref->[1]->[3],$format1); # Vendor Code
>
> $lineref = \@line;
>
> while (<IPO>){
> chomp;
> @line=split /\|/,$_;
> $line[2]=~s/ //g;
> &$addline;
> $count++;
> }
>
>
> > -----Original Message-----
> > From: Dan Muey [mailto:[EMAIL PROTECTED]]
> > Sent: Thursday, January 16, 2003 10:49 AM
> > To: Paul Kraus; Perl
> > Subject: RE: Where is the new line coming from.
> >
> >
> > > I am reading in a text file that has input similar to this.
> > > date|data|data|data\n
> > >
> > > I then read the file in and using a while loop I chomp
> off the new
> > > line. while (<IPO>){
> > > chomp;
> > > @line=split /\|/,$_;
> > > $line[2]=~s/ //g;
> >
> > Do you mean $line[3] since that is the last one in the array in the
> > example above?
> > date1|data2|data3|data4\n would become
> > 0 data1
> > 1 data2
> > 2 data3
> > 3 data4\n
> > If so remove any newlines and space also :
> > $line[3] =~ s/\n|\r| //g;
> > Or use '\s' instead of ' ' for the space.
> >
> > Dan
> > > print "$_" foreach (@line);
> > > last;
> > > $count++;
> > > last if ($count == 7);
> > > }
> > >
> > > Here is the mystery. the output has a newline at the end
> of it. It
> > > should print "data data data data" and then my next
> prompt should be
> > > right here. instead it prints
> > > "data data data data
> > > "and my prompt is here.
> > >
> > > If I remove the initial chomp then I get a double space
> at the end.
> > >
> > > No matter what I print the last element gets a new line ?????
> > >
> > > Example if I
> > > print "$line[0] $line[1]";
> > > then right at the end of the print statement is a new
> line and the
> > > output is identical to what I previously described. the last
> > > elements always inherits a new line. It driving me
> crazy!!! thanks
> > > in advance :)
> > >
> > >
> > > Paul Kraus
> > > Network Administrator
> > > PEL Supply Company
> > > 216.267.5775 Voice
> > > 216-267-6176 Fax
> > > www.pelsupply.com
> > >
> > >
> > > --
> > > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > > For additional commands, e-mail: [EMAIL PROTECTED]
> > >
> > >
> >
>
ipo.xls
Description: MS-Excel spreadsheet
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
