Sorry - some spelling mistakes there:
"Rob Dixon" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED]
> Pablo Fischer wrote:
> > Thanks!!!
> >
> > That's what I was looking for!
> >
> > Yep, the file has a single record, It works, thanks!
> >
> > Now looking your code, the difference its
Pablo Fischer wrote:
> Thanks!!!
>
> That's what I was looking for!
>
> Yep, the file has a single record, It works, thanks!
>
> Now looking your code, the difference its the local $/. What does local $/ its
> doing?
The scalar $/ is a perdefined variable which is the 'input record
separator'. It
Thanks!!!
That's what I was looking for!
Yep, the file has a single record, It works, thanks!
Now looking your code, the difference its the local $/. What does local $/ its
doing?
Thanks!
>
> open ARCHIVO, 'MOVER.CPO' or die "Cannot open MOVER.CPO: $!";
> local $/;
> my $file = ;
> clo
Pablo Fischer wrote:
> Checking My code and trying with this:
>
> open(ARCHIVO, "MOVER.CPO");
> my $file = ; #Yes I know that I need to use and array, just trying
> #Cerramos el archivo
> close(ARCHIVO);
> #open ARCHIVO, 'MOVER.CPO' or die "Cannot open MOVER.CPO: $!";
> my ($num, $fulanos, $tiempo,
Checking My code and trying with this:
open(ARCHIVO, "MOVER.CPO");
my $file = ; #Yes I know that I need to use and array, just trying
#Cerramos el archivo
close(ARCHIVO);
#open ARCHIVO, 'MOVER.CPO' or die "Cannot open MOVER.CPO: $!";
my ($num, $fulanos, $tiempo, $subject, @bodyhtml, @bodytxt, $att
Hi again;
Maybe I explained a little (??) bad my problem,
Using the code of John with what I need to get:
open ARCHIVO, 'MOVER.CPO' or die "Cannot open MOVER.CPO: $!";
my ( $num, $fulanos, $tiempo, $subject, $bodyhtml, $bodytxt, $attach,
$fechaenvio );
while ( ) {
( $num, $fulanos, $tiem
Pablo Fischer wrote:
>
> Hi again
Hello,
> Ok, I have a file that each part of this is separated by pipes (|), so I load
By "each part" I think you mean each line?
> the file in an array and then split it, the file has 8 parts:
>
> Part 1: a Number
> Part 2: a Big String (Maybe Im gonna use a
I forgot what does print NEEDS to print..
> But When I print it doest print what it NEEDS to print, and example of the
> first pipes of F737.JOP:
>
> 1|Env7371.txt(6)|1|1
>
> And it prints:
>
> 136 | | | | |
And I Should be
print "$num | @fulanos | $tiempo | $subject | $attach | $fechaenvio\
