Webmaster Forum / Perl / Getting Started / December 2006

Is there an easy way to determine if an item is in an array without iterating
through the array and comparing each element to the item in question?
Mathew

flw@Sleeper:~$ ipcs -q
------ Message Queues --------
key        msqid      owner      perms      used-bytes   messages
flw@Sleeper:~$ perl -e 'use IPC::SysV qw(IPC_CREAT);$m=msgget(0x12345678,IPC_CREAT|0666) || die $!'

A script I've been working on will provide time spent on a work ticket in H:MM
format.  However, if the MM section is less than 10 it only shows as H:M so I
need to append a 0 to it.  So, for instance, if the output looks like this 9:7 I
need to append the 0 to the 7 making it 9:07.

In the following snippet of code I'm getting the "useless use of a private
variable in a void context" error.  It is at line 64 which is the closing brace
for the for loop.
for ($count; $count < 7; $count++) {

I now we can push (concatenate) data onto an array.
I would assume that we could concatenate data on to a string as well
with something like:
$newstring = $oldstring . $newdata

I'm trying to set up an if clause to exit if an answer given is anything but
either any case combination of 'y' or 'yes'.  This is what I have:
exit if $ans =~ m/[^y|^yes]/i;
Will that do what I want?

In my most recent postings, I was dealing with first HoA and now HoH.
In my previous example code, I ended up with an output that looked
something like this:
jelly -- strawberry apple grape pear

I'm working on a complex data structure with hashes of hashes and
hashes of arrays and I noticed a weird behavior I was hoping someone
could explain.  Here's a sample:
$Data{US17}{1}{GROUP} = "STRING";

I'm still experimenting with the HoA from a couple of days ago. I just
realized there is the possibility for having duplicate elements of the
array. How do I prevent that?
Thanks,

I have the following simple script. I'm toying with HoA for the first
time. The script is not working as expected and I know why it's not
working. Each time a $HoA{$prod} is read, the $flavor is replaced with
the new value.

I'm parsing a file that's 10000+ lines long. Since sometimes it can be 10x that size I'm doing line by line parsing as opposed to array slurp.
The first 4 lines are gobbldygook and need to be skipped. Currently I'm doing...
   while (my $line = <TRACECSV>) {
       next unless ($ ...

Have a look at these two different implementations. IMPL2 works somehow. The
problem I am facing is that the glob <$pat> does not return any value in
IMPL1 but it returns in IMPL2. Can somebody tell what could be the problem.
I have also tried including the advanced glob module ...

I'm executing this perl and I get an error in this line_
$browser2->click_button( value => "Next 25 records");
but i dont understand why because Next 25 records button exists!!
Can you help me with this please?

hi to all,
two questions:
1) I need to extract a random item from an hash, does exist a function
to do it? A module? An implementable and not-too-much-slow flowchart?

I will be glad if someone can give me a guide.
I have a file
test.conf
[$ip]