Netcom3(tm) is a recognized global leader in internet security software.
With Netcom3 Internet Security Suite, it's key focus is on securing
sensitive consumer online interactions, as well as prevent and remove
Spyware, Adware, optimize, fix PC errors, and make your system run
faster and error free. Netcom3 Internet Security Software will speed
up your computer, detects and removes spyware and adware, Viruses,
Trojans, Dialers, Worms and a host of other dangerous parasites. It
automatically detects and corrects the most common problems including:
run time errors, corrupt files, invalid paths, fonts, file types,
CLSID, DLLs, sound, help files, shell extensions, AppEvents, class
keys and many more. Just like with a car your PC needs software
maintenance to keep it running smoothly like the first time you booted
your pc. A common cause of Windows crashes, error messages and
performance problems are the result of registry inconsistencies.
Netcom3(tm) Windows registry cleaner can fix these problems for you and
make your PC run smoothly again. Firewall and a good anti-virus
product are important. But these alone won't protect you from
intrusive spyware or keep your PC optimized for peak performance. This
is why Netcom3 Internet Security Suite has been developed to be the
perfect support for Windows PCs. ...

This is an excerpt from the latest version perlfaq4.pod, which
comes with the standard Perl distribution. These postings aim to
reduce the number of repeated questions as well as allow the community
to review and update the answers. The latest version of the complete
perlfaq is at http://faq.perl.org .

--------------------------------------------------------------------

4.46: How do I handle linked lists?

In general, you usually don't need a linked list in Perl, since with
regular arrays, you can push and pop or shift and unshift at either end,
or you can use splice to add and/or remove arbitrary number of elements
at arbitrary points. Both pop and shift are O(1) operations on Perl's
dynamic arrays. In the absence of shifts and pops, push in general needs
to reallocate on the order every log(N) times, and unshift will need to
copy pointers each time.

If you really, really wanted, you could use structures as described in
perldsc or perltoot and do just what the algorithm book tells you to do.
For example, imagine a list node like this:

I have an issue that puzzles me, I f anyone can point me to the
documentation it will be great.
I'm writing a file and reading it right after. the results I'm getting
from reading the file are different then what I expect.
#!/usr/bin/perl
use strict;
use CAM::PDF;
use CAM::PDF::PageText;
use DBI;
my $content;
my $pdf = CAM::PDF->new('/home/arik/SCAL.pdf');
my $pageCount = $pdf->numPages();
for (my $i=1; $i<$pageCount;$i++){
my $pageone_tree = $pdf->getPageContentTree($i);
$content = $content . CAM::PDF::PageText->render($pageone_tree);
}

This is an excerpt from the latest version perlfaq4.pod, which
comes with the standard Perl distribution. These postings aim to
reduce the number of repeated questions as well as allow the community
to review and update the answers. The latest version of the complete
perlfaq is at http://faq.perl.org .

--------------------------------------------------------------------

4.56: What happens if I add or remove keys from a hash while iterating over it?

(contributed by brian d foy)

The easy answer is "Don't do that!"

If you iterate through the hash with each(), you can delete the key most
recently returned without worrying about it. If you delete or add other
keys, the iterator may skip or double up on them since perl may
rearrange the hash table. See the entry for "each()" in perlfunc.

--------------------------------------------------------------------

Morning Guys

I am pretty new here, tyring to learn as I go.

I have a lil project I am trying to setup

Basically : below is a piece of the file

Has three fields Seperated by ~

6081703039~1~My Own Company
3081709039~1~DeweyCheetham&Howe
9081710039~1~One Bad Firm
2081757039~1~IRSUSUCK
1082445039~1~

Basically I need the file to only show the Field that has all data

I am new so not sure if my syntax is correct

If field 3 is blank then don't show?

Can anyone help me write a Perl script to acocmplish this ?

Thanks a bunch

I'm not really sure which forum to post this on!

I am attempting to retrieve data from an sql server 2005 database, hosted,
store and manipulated on a Windows box.

My code is running on a Linux box, and I have been given
read-only access to the DB server.

Connection via DBI is working well, but I am failing
to extract unicode data from the DB, which I understand
from googling is stored internally as UCS2.
(I can get ascii data and numeric data fine)

I am using perl, DBI, and the DBD::Sybase driver.

So - has anyone retrieved "international" data
in the same (or similar) circumstances as this?

BugBear

This is an excerpt from the latest version perlfaq4.pod, which
comes with the standard Perl distribution. These postings aim to
reduce the number of repeated questions as well as allow the community
to review and update the answers. The latest version of the complete
perlfaq is at http://faq.perl.org .

--------------------------------------------------------------------

4.36: How can I expand variables in text strings?

(contributed by brian d foy)

If you can avoid it, don't, or if you can use a templating system, such
as "Text::Template" or "Template" Toolkit, do that instead. You might
even be able to get the job done with "sprintf" or "printf":

my $string = sprintf 'Say hello to %%s and %%s', $foo, $bar;

However, for the one-off simple case where I don't want to pull out a
full templating system, I'll use a string that has two Perl scalar
variables in it. In this example, I want to expand $foo and $bar to
their variable's values:

my $foo = 'Fred';
my $bar = 'Barney';
$string = 'Say hello to $foo and $bar';

Hi all,

here is a sample of my file :

## blah blah
[client1]
remote=192.168.1.2
### some comments here
### blah blah
[client2]
remote=192.168.1.5
passive=true
###blablah
[client3]
remote=192.168.1.8
[client4]
remote=192.168.1.15
passive=true
###
####
####

Dear All,

I want to automize a process in perl.
In this process I have the following code

sub run_command {
my ($command) = @_;
print "$command\n";
system($command) == 0
or die "system $command failed: $? -- $!"

}

run_command('source init_file');
run_command('mycommand.pl -configfile config -exec ');

I get the following error
source init
Can't exec "source": No such file or directory at ..
system source init failed: -1

Hello,

I have a requirement to monitor a log file in unix using perl 5.8.
Needed is detection of "error" in a line appended to the file.
Also need to detect if "complete" is not found after, say, 5 hours
after invocation.

I expect there is a hard way and an easy way to do this - could some
kind person advise me?
Pointers to Fine Perldocs welcome!

TIA

JJ