Marc wrote:
Shawn,
if you use perlbrew and local::lib you
can test different perl versions and then different environments.
I haven't looked into local::lib yet. What advantage does that give
you over a plain perlbrew install?
Marc
I haven't used local::lib very much
Jose Marquez wrote:
Hi there
Sure I am the newbiest of all Perl newbies in this group
Just have been reading some of the posts you all have sent since I subscribe to this list
What I'm trying to learn these days is how I run a Perl script in background on Windows. Can anybody give
shawn wilson wrote:
On Sun, Jun 12, 2011 at 14:38, Brian F. Yulga wrote:
perl -MFile::Find -wle "find( sub{ /\.mp3$/i and print;}, q(.));"
just curious, what's the difference (in speed or results) between this
and 'dis/a/s/b *.mp3'?
obviously File::Find a
Sayth Renshaw wrote:
Try:
my @Music_files = ();
use File::Find;
find( \&want_mp3, 'd:\\' );
print "$_\n" for sort @Music_files;
sub want_mp3 {
push @Music_files, $File::Find::name if $_ =~ /\.mp3$/;
}
--
Just my 0.0002 million dollars worth,
Shawn
Confusion is the first step of unde
Leo Lapworth wrote:
Hi Agnello,
On 7 June 2011 07:47, Agnello George wrote:
I got the following hashref
now i need to push $select_all_website into $selet_domU_data
I think this is what you want...
use strict;
use warnings;
my $hash_ref_1 = {
a => 1,
Tiago Hori wrote:
Hey Guys,
I am a real beginner so at the risk of being slammed by some, I wanted to
get some input.
I'm a beginner, too. I've worked through this chapter somewhat
recently, so my advice shouldn't be too hard to understand :-)
Hopefully _I_ don't get slammed!
I was tryi
Randal L. Schwartz wrote:
If they don't have a thick skin already, they'd better get one soon, or
they'll be useless as an advanced programmer. Without thick skin, they
won't be able to submit their code for review regardless of how much
their ego is invested in it.
I've been following th
Brian F. Yulga wrote:
my @mail_types = qw( avenue road box lane );
my @words = split /\s/, $fields;
my $count = grep {
my $found;
foreach my $street ( @mail_types ) {
if ( /\b$street\b/i ) {
$found++;
last;
}
}
$found;
} @words;
print qq
shawn wilson wrote:
On Sat, Apr 9, 2011 at 3:29 PM, wrote:
my $address_count = () = $str =~ /box|street|avenue|lane|apo/ig;
what does print $var = () = $str =~ /regex/; do?
particularly the '= () ='?
According to "Effective Perl Programming (2nd Ed.)", Item 9 (Know the
dif
Dennis Wicks wrote:
Greetings;
I want to setup a form on a web page that a visitor can fill in then
send it back to me by email so I can browse it online and print it out
locally in the correct format. I have the way to define the input form
figured out, but the transmission and browsing and
Thanks for the reading suggestions!
Brian Fraser wrote:
On Wed, Mar 9, 2011 at 2:22 PM, Brian F. Yulga
mailto:byu...@langly.dyndns.org>> wrote:
Uri and Jim have hit upon one of my major stumbling blocks with
learning Perl. There seems to be a difference of opinion on the
Ben Lavery wrote:
> there must be a slight trade-off... the processing required to
> initialize the hash table with it's keys and values is probably
> more intensive than defining an array with its respective values?
> Unless, internally, Perl stores arrays as hashes, with the indexes
> as the ke
Jim Gibson wrote:
On 3/9/11 Wed Mar 9, 2011 9:22 AM, "Brian F. Yulga"
scribbled:
>
> foreach ( @word_list ) { if ( /^$temp_word$/i ) { push(
> @all_combinations, ( $_ )); } }
That is pretty much what the grep function is doing. It has to
iterate over the entire arr
Uri Guttman wrote:
>> "BL" == Ben Lavery writes:
>
>
> BL> #Here, using a hash looks much cleaner than
iterating through an array
>
> hashes are almost always better for token lookups than scanning
> arrays. don't doubt yourself in this area.
>
>
Jim Gibson wrote:
> On 3/8/
shawn wilson wrote:
On Mar 7, 2011 11:37 AM, "Brandon McCaig"
wrote:
>
> On Mon, Mar 7, 2011 at 5:22 AM, Ramprasad Prasad
>
wrote:
>> 1) Create a hash of aliases for frequently used domains and their
>> typos For eg gmaill.com => gmail.com hotmal.com => hotmail.com
>> etc
>>
>> when I get
Shawn H Corey wrote:
On 11-03-04 02:30 PM, Brian F. Yulga wrote:
> my brain nearly exploded when reading the section "returning a
> subroutine from a subroutine"
Just wait until you get to the part where you can treat an anonymous
subroutine as an object. :D
For details,
a
good one to read as it goes that extra step and provides you with a
good insight of the underlying logic.
On Fri, Mar 4, 2011 at 7:30 PM, Brian F. Yulga
mailto:byu...@langly.dyndns.org>> wrote:
Rob Coops wrote:
So you should now be able to retrieve the whole result set as
Rob Coops wrote:
So you should now be able to retrieve the whole result set as a
reference to an array containing references to arrays. And I hope
that my ramblings explained a bit how you can use that reference to
get to the underlying values. If you combine all of that I think
you'll be
Uri Guttman wrote:
>>>>> "BFY" == Brian F Yulga writes:
BFY> My apologies if I'm beating a dead horse here, but I'm new to
Perl and BFY> thought of a slightly different approach:
BFY> my $searchrx = qr/whatever/; # or q/whatever/ if you don
Ken Slater wrote:
> From: Brian F. Yulga [mailto:byu...@langly.dyndns.org]
> On Wed, 2 Mar 2011, Matt wrote:
>> The easiest way in my opinion is to use the 'grep' function like
>> this:
>>
>> my $searchstring="whatever"; open CFG, '&
On Wed, 2 Mar 2011, Matt wrote:
> > The easiest way in my opinion is to use the 'grep' function like this:
> >
> > my $searchstring="whatever";
> > open CFG, '<', $_file || die("could not open file: $_file!");
> > my @data=;
> > close CFG;
> > if ( grep /$searchstring/i, @data ) {
> > print "$se
21 matches
Mail list logo