Thank you Alex, that's help me :)
2007/10/5, Alex Agle <[EMAIL PROTECTED]>:
>
> Hi Paizo,
>
> In the programs that I've written, I usually check the size of the
> hash or array as opposed to checking for ARWARN 1200. I'll provide
> two examples of how to do this. The first example is with a hash and
> the second is with an array.
>
> The first example is untested code that I put together by doing some
> googling. The keys() function might be helpful. For example:
>
> %entries = ars_GetListEntry($ctrl, $ARSschema, $qual, 0, 0);
> $hash_size = keys(%entries);
>
> if ($hash_size eq 0) {
> print "ARWARN 1200: Nothing was found\n");
> ars_Logoff($ctrl) || exit 0;
> exit 0;
> }
>
> A lot of programs that I've written in the past use an array
> instead of a hash and then branch based on the size of the array.
>
> Partial code from an actual working program:
>
> @entries = ars_GetListEntry($c, $s_ho, $q, 0, 0);
> if ($#entries eq -1) {
> print MAIL ("There are no $holdtypes.\n");
> } elsif ($#entries eq 1) {
> print MAIL ("There is one $holdtype:\n\n");
> $entry_num = $entries[0];
> &PrintHeader;
> &PrintEntry($entry_num, $startorend, $holdtype);
> } else {
> $ent_num = ($#entries + 1) / 2;
> print MAIL ("There are $ent_num $holdtypes:\n");
> &PrintHeader;
> for ($i = 0; $i <= $#entries; $i +=2 ) {
> $entry_num = $entries[$i];
> &PrintEntry($entry_num, $startorend, $holdtype);
> }
> }
>
> Hope that helps!
> Alex
>
> On Fri, Oct 05, 2007 at 10:31:00AM +0200, Paizo wrote:
> > Hi listeners,
> >
> > I'm making a perl script to check the presence of some kind of tickets.
> > Usually there are no tickets of this kind causing a ARWARN 1200.
> > I would like to handle this warning but i miss something....
> >
> >
> > $arwarn = "";
> > (%entries = ars_GetListEntry($ctrl, $ARSschema, $qual, 0, 0)) ||
> ($arwarn =
> > $ars_errstr);
> >
> > print "$arwarn\n"; # $arwarn is empty!
> >
> > if ($arwarn=~ m/\ARWARN 1200/i)
> > {
> > ars_Logoff($ctrl) || exit 0;
> > exit 0;
> > }
> >
> > what's wrong with that code?
> > Seems also that $arwarn is empty because it print nothing at all.
> >
> >
> > thank you for your time.
> >
> >
> > --
> > --------------------
> > A me cugin na volta xe ndà dal geataro e el ga domandà na coppetta
> trigusto
> > co i gusti seegheta, sarexe e schie co na fettina de poenta.
> > El geataro pena sentio cheà goduriosa scelta, el se ga messo subito el
> > pigiama de banane e el ghe ga messo in testa a corona de poegge medie e
> lo
> > ga fatto diventare Re dei Gelati Biricchini.
> > -----------------------
> > Confezione trigusto seegheta/sarexe/chie co pratico contenitore par e
> fete
> > de poenta, stile estatè o quea dea ciocoeata
> > Altri gusti poe essere bigadini/kiwi/lasonil co socoi de vacca da
> tociare o
> > erbagatta/straciatella/calsina co coe de sorxe da tociare
> > ------------
> > Rileggendo a firma diria che se poe puntare al mercato dei ghiaccioli
> col el
> > gusto crema al diserbo e paraflù ricoperta da una soffice crosta de pus
> co
> > al posto del bacheto un termometro anale pratico pa misurarse a freve
> dopo
> > aver magnà el geato (chi xe che no lo fa al giorno d'oggi?!?!).
> Garantite
> > scorese bitonali e solfeggi anali.
>
> >
> -------------------------------------------------------------------------
> > This SF.net email is sponsored by: Splunk Inc.
> > Still grepping through log files to find problems? Stop.
> > Now Search log events and configuration files using AJAX and a browser.
> > Download your FREE copy of Splunk now >> http://get.splunk.com/
> > _______________________________________________
> > Arsperl-users mailing list
> > Arsperl-users@arsperl.org
> > https://lists.sourceforge.net/lists/listinfo/arsperl-users
>
>
> --
> O--------------O--O---------------------------------O
> | Alex Agle \/ Systems Support Specialist III |
> O---------------/\ Georgia Institute of Technology |
> |(404)894-6165 //\\ ITS - Applications Support |
> | Atlanta, GA //\/\\ alex.agle(@)oit.gatech.edu |
> O------------O-\/\/-O-------------------------------O
>
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Splunk Inc.
> Still grepping through log files to find problems? Stop.
> Now Search log events and configuration files using AJAX and a browser.
> Download your FREE copy of Splunk now >> http://get.splunk.com/
> _______________________________________________
> Arsperl-users mailing list
> Arsperl-users@arsperl.org
> https://lists.sourceforge.net/lists/listinfo/arsperl-users
>
>
--
--------------------
A me cugin na volta xe ndà dal geataro e el ga domandà na coppetta trigusto
co i gusti seegheta, sarexe e schie co na fettina de poenta.
El geataro pena sentio cheà goduriosa scelta, el se ga messo subito el
pigiama de banane e el ghe ga messo in testa a corona de poegge medie e lo
ga fatto diventare Re dei Gelati Biricchini.
-----------------------
Confezione trigusto seegheta/sarexe/chie co pratico contenitore par e fete
de poenta, stile estatè o quea dea ciocoeata
Altri gusti poe essere bigadini/kiwi/lasonil co socoi de vacca da tociare o
erbagatta/straciatella/calsina co coe de sorxe da tociare
------------
Rileggendo a firma diria che se poe puntare al mercato dei ghiaccioli col el
gusto crema al diserbo e paraflù ricoperta da una soffice crosta de pus co
al posto del bacheto un termometro anale pratico pa misurarse a freve dopo
aver magnà el geato (chi xe che no lo fa al giorno d'oggi?!?!). Garantite
scorese bitonali e solfeggi anali.
-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems? Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >> http://get.splunk.com/
_______________________________________________
Arsperl-users mailing list
Arsperl-users@arsperl.org
https://lists.sourceforge.net/lists/listinfo/arsperl-users
