question

Is the last unless statement saying "break out of the loop only when @a is
read completely through?
I also have a formatting question.  The output is printing a ' after a
newline and I have played with the code by moving "print $tick in and
outside the loop, but cannot get it to work.  Here is what I mean:

-w 'barcode=E01497 or barcode=E01496 or barcode=E01332 or
barcode=E00405
'edm01:/usr/local/bin/perld>>

I would like to have the tick right after the last element E string

#!/usr/local/bin/perl -w
use strict;
open (FH,"/usr/local/bin/perld/derektapes") or die "cannot open FH: $!
\n";
my $w_param="-w ";
my $tick="'";
my $b_param="barcode=";
my $or_string=" or ";
chomp ( my @a = <FH> );

#       $a[$i]=$_;
#       $i++;
#       print map {$_, "\n"} @a;

print $w_param,  $tick;
while (@a) {
my @output = ();
for ( 1..4 ) {
push @output, $b_param . shift @a;
last unless @a;
}
print join ($or_string, @output),"\n";
}
print $tick;


thank you,
Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams

DBSMITH@OhioHealth.com wrote:
> Is the last unless statement saying "break out of the loop only
> when @a is read completely through?

In effect: Yes.

> I also have a formatting question.  The output is printing a '
> after a newline

A wild guess would be that it's because the "'" is printed after the
printing of a "\n". ;-)  Have you tried:

print join ($or_string, @output), $tick, "\n";

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

DBSMITH@OhioHealth.com wrote:

> Subject: question

Please try to use a more descriptive subject line.  :-)


> Is the last unless statement saying "break out of the loop only when @a is
> read completely through?
> I also have a formatting question.  The output is printing a ' after a
> newline and I have played with the code by moving "print $tick in and
> outside the loop, but cannot get it to work.  Here is what I mean:
>
>         -w 'barcode=E01497 or barcode=E01496 or barcode=E01332 or
> barcode=E00405
>         'edm01:/usr/local/bin/perld>>
>
> I would like to have the tick right after the last element E string
>
> #!/usr/local/bin/perl -w
> use strict;
> open (FH,"/usr/local/bin/perld/derektapes") or die "cannot open FH: $!
> \n";
> my $w_param="-w ";
> my $tick="'";
> my $b_param="barcode=";
> my $or_string=" or ";
> chomp ( my @a = <FH> );
>
> #       $a[$i]=$_;
> #       $i++;
> #       print map {$_, "\n"} @a;
>
>         print $w_param,  $tick;
>         while (@a) {
>         my @output = ();
>                 for ( 1..4 ) {
>                         push @output, $b_param . shift @a;
>                         last unless @a;
>                 }
>         print join ($or_string, @output),"\n";
>         }
> print $tick;

You are printing $tick after the newline.  Try printing it before the newlin
e.

print join ($or_string, @output),"$tick\n";



John
--
use Perl;
program
fulfillment

well yes I thought I tried that, but maybe I type something wrong b/c I am
not seeing what I remember.  Yours works!

thanks!

Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams
614-566-4145





Gunnar Hjalmarsson <noreply@gunnar.cc>
08/04/2004 06:12 PM


To:     beginners@perl.org
cc:
Subject:        Re: question


DBSMITH@OhioHealth.com wrote:
> Is the last unless statement saying "break out of the loop only
> when @a is read completely through?

In effect: Yes.

> I also have a formatting question.  The output is printing a '
> after a newline

A wild guess would be that it's because the "'" is printed after the
printing of a "\n". ;-)  Have you tried:

print join ($or_string, @output), $tick, "\n";

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

--
To unsubscribe, e-mail: beginners-unsubscribe@perl.org
For additional commands, e-mail: beginners-help@perl.org
<http://learn.perl.org/> <http://learn.perl.org/first-response>