Tue, 13 May 2008 15:25:00 UT
A little Direction Please
Greets :)
Q; I am trying to learn how to define some variables
The basis of this script is to Scrub log files for ftp logins,
seperate the successful logins
Then create an array ( I hope the right terminology) to seperate it
I hardcoded the log file, because I am looking for a way for it to
scrub *.logs on a server
› – groups.google.com/group/comp.lang.perl.misc/msg/be516ad10d341efc |
Tue, 13 May 2008 14:56:39 UT
How to pass around an Array of Arrays (or Array Refs)
I need to pass an array of arrays from a function, but I can't make an
array of arrays work. Actually, I've got better results making an
array of array references. Here's what I've done:
my @array ;
my @row ;
@row = ('a00', 'a01') ;
push (@array, \@row) ;
@row = ('a10', 'a11') ;
push (@array, \@row) ;
› – groups.google.com/group/comp.lang.perl.misc/msg/62dd8045218a72f0 |
Tue, 13 May 2008 13:03:02 UT
FAQ 4.40 What is the difference between $array[1] and @array[1]?
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 [link] .
› – groups.google.com/group/comp.lang.perl.misc/msg/3b74f4626a3d1af4 |
Tue, 13 May 2008 12:36:40 UT
Constants across package boundaries
I've been chasing a compile problem and I just saw the light on what
my trouble is: I use a bunch of "use constant this => ...; use
constant that =>...;" to set parameters for the program. BUT: the
program uses a 'package' or two [it has a small embedded objects in
it]. The trouble is that the package can't access the 'constant' --
› – groups.google.com/group/comp.lang.perl.misc/msg/c305c1475b279b4c |
Tue, 13 May 2008 07:03:02 UT
FAQ 4.53 How do I manipulate arrays of bits?
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 [link] .
› – groups.google.com/group/comp.lang.perl.misc/msg/56390637dd1f632e |
Tue, 13 May 2008 06:11:05 UT
Posting Guidelines for comp.lang.perl.misc ($Revision: 1.8 $)
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
› – groups.google.com/group/comp.lang.perl.misc/msg/d8b62d44b910c3ae |
Tue, 13 May 2008 01:03:02 UT
FAQ 4.38 Why don't my <
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 [link] .
› – groups.google.com/group/comp.lang.perl.misc/msg/85549d86cee8d3ea |
Mon, 12 May 2008 22:52:39 UT
Windows XP escape \D error
When I run the following...
open (PRODUCT,"C:\Documents and Settings\root\Desktop\wd\hp.mhtml") ||
die "Cant open: $!;
I get the following
Unrecognized escape \D passed through at ./parse.pl line 3.
Unrecognized escape \D passed through at ./parse.pl line 3.
Unrecognized escape \w passed through at ./parse.pl line 3.
› – groups.google.com/group/comp.lang.perl.misc/msg/19fb0a2e2410b3c5 |
Mon, 12 May 2008 21:27:57 UT
Detecting C compiler in Makefile.PL
Hello,
a CPAN module of mine that needs a C compiler for installation
fails in some of the tests since the C compiler isn't found. The
offending lines are
if ( system $Config{cc}, qw( -o cc_test cc_test.c ) ) {
unlink 'cc_test.c';
die "Can't run C compiler '$Config{cc}'\n";
where 'cc_test.c' is a simple program that gets created
› – groups.google.com/group/comp.lang.perl.misc/msg/afffb07d48519a6c |
Mon, 12 May 2008 19:03:02 UT
FAQ 4.47 How do I handle circular lists?
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 [link] .
› – groups.google.com/group/comp.lang.perl.misc/msg/a9bb9674a91f579e |
Mon, 12 May 2008 13:10:35 UT
Device::ParallelPort input and output
Hi, I've currently got a laptop running Ubuntu Server and Perl 5.8.8.
I've installed the Device::ParallelPort module and I have it working
fairly reliably with ouput. I can make it turn on an LED on some
breadboard, etc.
I am having problems with receiving input through the parallel port
though. I really need to react to something happening. I currently
› – groups.google.com/group/comp.lang.perl.misc/msg/518b4707e48bde32 |
Mon, 12 May 2008 13:03:03 UT
FAQ 4.32 How do I strip blank space from the beginning/end of a string?
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 [link] .
› – groups.google.com/group/comp.lang.perl.misc/msg/bcdfa0f8ad18aeb1 |
Mon, 12 May 2008 07:39:17 UT
Current Time with 5 digits of milliseconds
I need to get the current date-time with milliseconds upto 5 places of
precision.
That is, 20080512T12094565266 => YYYY MM DD T HH mm SS ms-5 digits
Here, 65266 is the milli-second with 5 places of precision.
I tried with the module DateTime, but that does not give the
milliseconds.
use DateTime;
my $dt = DateTime->now( time_zone => 'floating' );
› – groups.google.com/group/comp.lang.perl.misc/msg/d973f5cdbf2c9019 |
Mon, 12 May 2008 07:03:01 UT
FAQ 4.14 How can I compare two dates and find the difference?
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 [link] .
› – groups.google.com/group/comp.lang.perl.misc/msg/bbbed855a5bbf9be |
Mon, 12 May 2008 01:11:59 UT
A site for all ypur programming language needs
A complete tutorial for all your programming language needs such as
Java, .Net and many more. A one shop site for all your programming
language needs
[link]
› – groups.google.com/group/comp.lang.perl.misc/msg/9e1510a5b0230e66 |
Mon, 12 May 2008 01:03:02 UT
FAQ 3.22 How can I get "#!perl" to work on [MS-DOS,NT,...]?
This is an excerpt from the latest version perlfaq3.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 [link] .
› – groups.google.com/group/comp.lang.perl.misc/msg/f0420c6a27328860 |
Sun, 11 May 2008 19:03:01 UT
FAQ 3.27 Where can I learn about linking C with Perl?
This is an excerpt from the latest version perlfaq3.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 [link] .
› – groups.google.com/group/comp.lang.perl.misc/msg/d9cffd32a247db9a |
Sun, 11 May 2008 13:03:03 UT
FAQ 4.24 How do I reverse a string?
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 [link] .
› – groups.google.com/group/comp.lang.perl.misc/msg/3faa9071e40e0163 |
Sun, 11 May 2008 07:51:16 UT
Creating new pages automatically with PDF::API2
Since no one in the beginners group could answer this I thought I'd
ask it to this group. I am using PDF::API2 to create PDF files from a
bunch of separate text files I have. The issue I am having is that I
am only able to create the first page of each text file and I haven't
been able to figure out how to automatically generate additional pages
› – groups.google.com/group/comp.lang.perl.misc/msg/d19d0d37785b02c4 |
Sun, 11 May 2008 07:03:01 UT
FAQ 3.28 I've read perlembed, perlguts, etc., but I can't embed perl in my C program; what am I doing wrong?
This is an excerpt from the latest version perlfaq3.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 [link] .
› – groups.google.com/group/comp.lang.perl.misc/msg/92aee54788cec9d1 |
Sun, 11 May 2008 03:51:54 UT
code written under 5.10.0 to be run under 5.8.8
I understand that one can specify that a script must be run under a perl
version no earlier than a particular version. So, if I say 'use 5.6.0',
that code will throw an error if one tries to run it under perl 5.5.0,
right?
But how about the reverse case?
Suppose I write code on my desktop, which has perl 5.10.0 installed, and
› – groups.google.com/group/comp.lang.perl.misc/msg/7ac8978bdedb5ae5 |
Sun, 11 May 2008 01:03:02 UT
FAQ 4.22 How do I expand function calls in a string?
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 [link] .
› – groups.google.com/group/comp.lang.perl.misc/msg/290c361fe28cbc13 |
Sat, 10 May 2008 21:28:49 UT
Printing a new line
Sounds simple enough.
I am printing to a text file file
open (example, ">remote.txt") || die ("Could not open file. $!");
print example ($first_name);
print example ($last_name);
close (example);
I have tried putting \n but it gives errors. Basically I want the
first and last names on a new line.
thanks
› – groups.google.com/group/comp.lang.perl.misc/msg/5d42dec82d89cb05 |
Sat, 10 May 2008 19:03:02 UT
FAQ 4.12 How do I find the day or week of the year?
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 [link] .
› – groups.google.com/group/comp.lang.perl.misc/msg/b50efffe635fb7ff |
Sat, 10 May 2008 16:24:25 UT
regex problem unresolved
Dear Gurus,
I was suggested by experts to post runnable codes to seek advice.
Unfortunately, after 4-day trial, I'm unable to break down the large codes
written by others to a smaller one. And as what xhoster inferred exactly,
the matching string comes from a data file and therefore cannot be known in
› – groups.google.com/group/comp.lang.perl.misc/msg/6be4ec3733e4d87d |
Sat, 10 May 2008 16:04:53 UT
XML::Simple
I am having some problems with XML::Simple and forcearray. I am trying
to get the XML file read in as an array instead of into a hash. I am
on Perl 5.6.1 and XML::Simple 1.06 and I can not updated. I have to
figure out how to do this on the system I am on.
XML File:
<?xml version='1.0'?>
<apps>
<app name="a" id="a">
› – groups.google.com/group/comp.lang.perl.misc/msg/22da24492aee47b5 |
Sat, 10 May 2008 13:36:10 UT
Filehandles
Hi,
I have a question about filehandles, even after reading the docs... I
know how to start a subprocess from perl and read from it. But how do
I write to the parent process that started me, the perl script?
I have tcl script from somewhere that calls a perl script I'm writing.
The tcl script says:
set channel [open |./randomize RDONLY]
› – groups.google.com/group/comp.lang.perl.misc/msg/014fcf1f5a903d48 |
Sat, 10 May 2008 13:03:04 UT
FAQ 4.4 Does Perl have a round() function? What about ceil() and floor()? Trig functions?
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 [link] .
› – groups.google.com/group/comp.lang.perl.misc/msg/cf8923c65f725b5c |
Sat, 10 May 2008 07:03:02 UT
FAQ 3.30 What's MakeMaker?
This is an excerpt from the latest version perlfaq3.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 [link] .
› – groups.google.com/group/comp.lang.perl.misc/msg/cc20ef371859307b |
Sat, 10 May 2008 05:52:30 UT
implementation for Parsing Expression Grammar?
In the past weeks i've been thinking over the problem on the practical
problems of regex in its matching power. For example, often it can't
be used to match anything of nested nature, even the most simple
nesting. It can't be used to match any simple grammar expressed by
BNF. Some rather very regular and simple languages such as XML, or
› – groups.google.com/group/comp.lang.perl.misc/msg/3be98b1c53fb9e79 |
Sat, 10 May 2008 02:30:39 UT
Help: Content extraction
Hello,
I have a problem while I'm processing my sequence file. The file content
is like this.
ACGGTC
ACTG
CGATCC
ACCTC
......
And I hope make every sequence into a single file. For example, a file
"seq1" content is
ACGGTC
ACTG
And a file "seq2" content is
CGATCC
ACCTC
and so on.
However, I'm only a newbie in perl, I don't know what to do. So could
› – groups.google.com/group/comp.lang.perl.misc/msg/561361ec42aa5a64 |
Sat, 10 May 2008 01:50:47 UT
Getting Portocal Settings for NIC
I'm trying to get the protocal settings only on the active NICs on a
computer.
I'm using $nics = $objWMIService->ExecQuery
('SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled =
True'); to get the active NICs, but how can I feed the NIC info into the
following:
$colItems = $objWMIService->ExecQuery
› – groups.google.com/group/comp.lang.perl.misc/msg/33ad130033ef34d6 |
Sat, 10 May 2008 01:31:17 UT
How to filter fat32 illegal characters from directories and files?
These are illegal characters in a fat32 file system:
/ : ; * ? " < > |
So when I attempt to copy files which contain any of these characters to
my USB thumb drive which is a fat32 file system, it fails. I don't want
to format the thumb drive as anything else. Is there a script which will
› – groups.google.com/group/comp.lang.perl.misc/msg/08af8b8fc00bd6ef |
Sat, 10 May 2008 01:03:01 UT
FAQ 3.24 Why don't Perl one-liners work on my DOS/Mac/VMS system?
This is an excerpt from the latest version perlfaq3.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 [link] .
› – groups.google.com/group/comp.lang.perl.misc/msg/97dd0671b360ec35 |
Fri, 09 May 2008 21:55:23 UT
BEST VIDEO sex!
Best Viedo! SEXI *-*!!
[link]
[link]
› – groups.google.com/group/comp.lang.perl.misc/msg/d41dd024d797a12a |
Fri, 09 May 2008 19:03:02 UT
FAQ 4.19 How do I validate input?
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 [link] .
› – groups.google.com/group/comp.lang.perl.misc/msg/d8ddb8631123f22b |
Fri, 09 May 2008 18:22:57 UT
I need to extract an array from a scalar regex-wise ?
This is not a homework assignment. I'd be interested in more elegante'
solutions than mine is all..
Let's say I want to extract all of the days of the week out of a
scalar such as :
$_ =
'We went to the beach on Monday but it turned out that Sunday would
have been better. The weather report Saturday said no rain until
› – groups.google.com/group/comp.lang.perl.misc/msg/393935014334a064 |
Fri, 09 May 2008 18:30:47 UT
Re: Dear gurus how can I extract an ARRAY from a scalar regex-wise
Your solution was close. Just after some more hours
playing w/regular expressions - you'd have made it ;-)
Maybe you intended sth. like:
...
my @daynam = qw' mon tues wednes thurs fri satur sun ';
my $regexp = '((?:' . join('|', @daynam) . ')day)';
my @keys = $scalar =~ /$regexp/gi;
...
Regards
› – groups.google.com/group/comp.lang.perl.misc/msg/3eee9ca752e705ef |
Fri, 09 May 2008 17:21:38 UT
Get variable from its name string or vice versa?
I have written a function to log variables like this:
" varName: varValue"
but it takes two arguments: the variable name as a string, and the
variable symbol:
logVar ("myVar", $myVar) ;
sub logVar {
my $varName = shift ;
my $varValue = shift ;
if (!defined($varValue)) {
$varValue = "<undef>" ;
› – groups.google.com/group/comp.lang.perl.misc/msg/09c8b67817f8c232 |
Fri, 09 May 2008 15:15:24 UT
Installing arch-specific PM without shell access
Good Morning All,
I am hosting my Web site with Yahoo! small business services. I need
to get a few Perl modules installed that use compiled C code. I don't
have shell access, however, so I'm having a real hard time. I tried
the suggestion at [1]. The problem is that Yahoo! has done things to
cripple Perl-based CGI scripts, preventing that tact from working.
› – groups.google.com/group/comp.lang.perl.misc/msg/11ba9a576a716071 |
Fri, 09 May 2008 15:11:03 UT
DROP TABLE customers
I would like to know if Perl's DBI supports an attribute that would
make a database handle read only.
That is, I am looking for a way to make a handle read only so that all
subsequent queries that seek to modify the database, would not proceed
at all.
This would be for mysql.
Thanks
› – groups.google.com/group/comp.lang.perl.misc/msg/663bd0f20e271404 |
Fri, 09 May 2008 13:18:14 UT
MySQL and Perl
I am about to dive into working with MySQL databases in perl and am
looking for any information you all may have on the subject, website
links, modules etc.
Bill H
› – groups.google.com/group/comp.lang.perl.misc/msg/9d950a726b97cb47 |
Fri, 09 May 2008 13:03:02 UT
FAQ 3.21 How can I compile my Perl program into byte code or C?
This is an excerpt from the latest version perlfaq3.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 [link] .
› – groups.google.com/group/comp.lang.perl.misc/msg/4afa88f3efc22205 |
Fri, 09 May 2008 12:15:30 UT
Net::SSH::Perl error
Hi,
I am encountering the following error while using Net::SSH::Perl, from
within a Perl CGI script:
Bad packet length <some number> at /usr/lib/perl5/site_perl/5.8.0/
Net/SSH/Perl/Packet.pm
Has anyone faced this issue before? Any idea what might be causing
this?
Some help is much appreciated.
thanks,
› – groups.google.com/group/comp.lang.perl.misc/msg/53c15a397ce0a8ab |
Fri, 09 May 2008 11:38:45 UT
Perl & Win32 & RHEL
Hi,
I am _very_ new to Perl (third day to be precise) so apologies in
advance for the incorrectness in post below.
I am trying to run a perl script on _RHEL 5.1_. That script, when ran,
throws error "Cannot load Win32::OLE: Can't locate Win32/OLE.pm in
@INC..". I have managed to download few other dependencies when I got
› – groups.google.com/group/comp.lang.perl.misc/msg/adb9bffb9fb7bde1 |
Fri, 09 May 2008 07:03:02 UT
FAQ 4.25 How do I expand tabs in a string?
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 [link] .
› – groups.google.com/group/comp.lang.perl.misc/msg/3e1d5ceaa950ec37 |
Fri, 09 May 2008 06:20:13 UT
Why Larry Wall uses this background color #e0ff00 for his web page
[link],
just curious, but this is odd, and does harm the eyes : 0, what do u
think?
› – groups.google.com/group/comp.lang.perl.misc/msg/1d6d858894bde097 |
Fri, 09 May 2008 01:03:02 UT
FAQ 4.27 How can I access or change N characters of a string?
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 [link] .
› – groups.google.com/group/comp.lang.perl.misc/msg/53ad1585b1a790c8 |
Fri, 09 May 2008 00:19:31 UT
A question on next
At work, one of the engineers did something like the following to
parse a 100MB apache log file.
while (<LOG>) {
next unless (/^\w+\s([a-zA-Z\.]+)\s\w+\s\w+\s\w+\s(\d+)$/);
$locationhash{$1} += $2;
He told me this loop wouldn't check every single in the log file. I
don't see how this is possible. Can someone clarity this? Thank you.
› – groups.google.com/group/comp.lang.perl.misc/msg/1af19078fccf30bf |
Thu, 08 May 2008 19:52:30 UT
trailing spaces in unpack("A10")
According to "perldoc perlpacktut", I could use unpack to extract
fixed length fields:
from "perldoc perlpacktut":
+++++++++++++++++++++++++++++++++++++
++ [...] we can see that the date column stretches from
++ column 1 to column 10 - ten characters wide. The
++ pack-ese for "character" is A, and ten of them are
› – groups.google.com/group/comp.lang.perl.misc/msg/6ed6291463f80ae0 |
iC Start >
RSS Feeds > Perl: comp.lang.perl.misc