Outline
Before posting to comp.lang.perl.misc
Must
- Check the Perl Frequently Asked Questions (FAQ)
- Check the other standard Perl docs (*.pod)
Really Really Should
- Lurk for a while before posting
- Search a Usenet archive
If You Like
- Check Other Resources
Posting to comp.lang.perl.misc
Is there a better place to ask your question?
- Question should be about Perl, not about the application area
How to participate (post) in the clpmisc community
- Carefully choose the contents of your Subject header
- Use an effective followup style
- Speak Perl rather than English, when possible
- Ask perl to help you
- Do not re-type Perl code
- Provide enough information ...

Hi all,
I am having a file like below:


http://www.httpwatch.com/xml/log/5.1">
http://www.google.com/sa/frame_main.cgi">
.
.
.
.
-------some text-------------
.
.
....

I have a issue:
1. I want to open a file and use the data from the file to construct
the url.
2. After I constructed the url and sent it, I got the response html
data and some parts are what I want store inot the files.

It seems like a very easy thing, however, the issue is that the data
from the file that I have to open are too huge, which I have to
consturct almost 200000 url address to send and parse response data.
And the speed is very very slow.

I have no idea with thread or db cache, so I want some help .

Please give me some advices that what I should do to improve the speed

Thanks very much.

I'm trying to load multiple classes with the same name from different
directories in order to implement a pluggable deployment system. I
have managed to get the classes to be redefined by playing with the
global symbol table, and it seems to be behaving the way I want except
for the definition of @ISA. Here's some sample code:

Here's the driving script:

# Create a class and instantiate it from the first directory
print "Constructing MyMod from D:/Data/Perl/Module1\n" ;
push @INC,'D:/Data/Perl/Module1' ;
require MyMod ;
print "MyMod is a ",join(',',@MyMod::ISA),"\n" ;
$build = MyMod->new() ;
print "\n" ;

# Clean out the previous definition of MyMod by deleting the entries
from the INC hash and the global symbol
# table
delete $INC{"MyMod.pm"} ;
delete $main::{'MyMod::'} ;
pop @INC ;

This is an excerpt from the latest version perlfaq6.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 .

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

6.12: What does it mean that regexes are greedy? How can I get around it?

Most people mean that greedy regexes match as much as they can.
Technically speaking, it's actually the quantifiers ("?", "*", "+",
"{}") that are greedy rather than the whole pattern; Perl prefers local
greed and immediate gratification to overall greed. To get non-greedy
versions of the same quantifiers, use ("??", "*?", "+?", "{}?").

An example:

$s1 = $s2 = "I am very very cold";
$s1 =~ s/ve.*y //; # I am cold
$s2 =~ s/ve.*?y //; # I am very cold

Gurus
I seem to be unable to pack a string padded with nulls and containing
the length of the string prepended to it. This is my code snippet,
where am i going wrong ?

$message1 = pack("l! a*",1, "This is a test,This program is free
software,you can redistribute it terms as Perl network, This is why I
said to talk");
msgsnd($queue,$message1,0);

In my msgrcv i only want to recieve upto 100 characters. If i send a
string greater than 100 my script receiving the message fails.

Thanks
Perl Monger

This is an excerpt from the latest version perlfaq6.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 .

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

6.7: How can I match a locale-smart version of "/[a-zA-Z]/"?

You can use the POSIX character class syntax "/[[:alpha:]]/" documented
in perlre.

No matter which locale you are in, the alphabetic characters are the
characters in \w without the digits and the underscore. As a regex, that
looks like "/[^\W\d_]/". Its complement, the non-alphabetics, is then
everything in \W along with the digits and the underscore, or
"/[\W\d_]/".

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

This is an excerpt from the latest version perlfaq7.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 .

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

7.5: How do I temporarily block warnings?

If you are running Perl 5.6.0 or better, the "use warnings" pragma
allows fine control of what warning are produced. See perllexwarn for
more details.

{
no warnings; # temporarily turn off warnings
$a = $b + $c; # I know these might be undef
}

Additionally, you can enable and disable categories of warnings. You
turn off the categories you want to ignore and you can still get other
categories of warnings. See perllexwarn for the complete details,
including the category names and hierarchy.

Hi all,
I am having a string like below:

HTTP/1.1 200 OK

bytes

gzip

5375

text/html

Wed, 19 Mar 2008 10:00:30 GMT

"1667999478"

Wed, 19 Mar 2008 10:00:01 GMT

Cricbuzz- Blazing Fast

Accept-Encoding

17958

70.069

gzip

http://totalvideos.isgreat.org/video/new
http://totalvideos.isgreat.org/video/new
http://totalvideos.isgreat.org/video/new
http://totalvideos.isgreat.org/video/new
http://totalvideos.isgreat.org/video/new
http://totalvideos.isgreat.org/video/new
http://totalvideos.isgreat.org/video/new
http://totalvideos.isgreat.org/video/new
http://totalvideos.isgreat.org/video/new
http://totalvideos.isgreat.org/video/new
http://totalvideos.isgreat.org/video/new
http://totalvideos.isgreat.org/video/new
http://totalvideos.isgreat.org/video/new
http://totalvideos.isgreat.org/video/new
http://totalvideos.isgreat.org/video/new
http://totalvideos.isgreat.org/video/new
http://totalvideos.isgreat.org/video/new
http://totalvideos.isgreat.org/video/new
http://totalvideos.isgreat.org/video/new
http://totalvideos.isgreat.org/video/new ...