Search Results

Search found 3393 results on 136 pages for 'perl j'.

Page 60/136 | < Previous Page | 56 57 58 59 60 61 62 63 64 65 66 67  | Next Page >

• Is there a difference between Perl's shift versus assignment from @_ for subroutine parameters?

  - by cowgod

  Let us ignore for a moment Damian Conway's best practice of no more than three positional parameters for any given subroutine. Is there any difference between the two examples below in regards to performance or functionality? Using shift: sub do_something_fantastical { my $foo = shift; my $bar = shift; my $baz = shift; my…

  Read the article

• What's a good Perl OO interface for creating and sending email?

  - by aidan

  I'm looking for a simple (OO?) approach to email creation and sending. Something like $e = Email->new(to => "test <test@test.com>", from => "from <from@from.com>"); $e->plain_text($plain_version); $e->html($html_version); $e->attach_file($some_file_object); I've found Email::MIME::CreateHTML, which looks great in…

  Read the article

• How can I read messages in a Gmail account from Perl?

  - by kiruthika

  I have used the module Mail::Webmail::Gmail to read the new messages in my Gmail account. I have written the following code for this purpose: use strict; use warnings; use Data::Dumper; use Mail::Webmail::Gmail; my $gmail = Mail::Webmail::Gmail->new( username => 'username', password => 'password', ); my $messages =…

  Read the article

• How can I fix Data::Alias for Perl 5.12?

  - by Ryan Thompson

  I like Data::Alias. It seems to be broken in 5.12. Can it be fixed? Will it be fixed soon? Is there any nice alternative?

  Read the article

• How can I create the XML::Simple data structure using a Perl XML SAX parser?

  - by DVK

  Summary: I am looking a fast XML parser (most likely a wrapper around some standard SAX parser) which will produce per-record data structure 100% identical to those produced by XML::Simple. Details: We have a large code infrastructure which depends on processing records one-by-one and expects the record to be a data structure in a…

  Read the article

• How do I interact with a Perl object that has a hash attribute?

  - by brydgesk

  I have a class with several variables, one of which is a hash (_runs): sub new { my ($class, $name) = @_; my $self = { _name => $name, ... _runs => (), _times => [], ... }; bless ($self, $class); return $self; } Now, all I'm trying to do is create an…

  Read the article

• Is it possible to read multiple files into a file handle in Perl?

  - by rarbox

  I have a few log files like these: /var/log/pureftpd.log /var/log/pureftpd.log-20100328 /var/log/pureftpd.log-20100322 Is it possible to load all of them into a single filehandle or will I need to load each of them separately?

  Read the article

• How can I create a qr// in Perl 5.12 from C?

  - by kristina

  This has been working for me in 5.8 and 5.10, but in 5.12 my code creates this weird non-qr object: # running "print Dumper($regex)" $VAR1 = bless( do{\(my $o = '')}, 'Regexp' ); Whereas printing a qr// not created by my code looks like this: # running "print Dumper(qr/foo/i)" $VAR1 = qr/(?i-xsm:foo)/; My code is…

  Read the article

• How can I find the first non-repeating character in a string using Perl?

  - by kivien

  Write a function that returns the first non-repeating character in a string. Example: “Thanks for visiting" returns "h".

  Read the article

• How can I generate a list of words made up of combinations of three word lists in Perl?

  - by Chris Denman

  I have three lists of words. I would like to generate a single list of all the combinations of words from the three lists. List 1: red green blue List 2: one two List 3: apple banana The final list would like like so: red one apple red two apple red one banana red two banana ... and so on Ideally I'd like to…

  Read the article

• How to print a key, value using the perl hases?

  - by Sourabh

  Example %hash = { 2010= 21, 2009= 9 }

  Read the article

• How do I use Perl's LWP to log in to a web application?

  - by maxjackie

  I would like to write a script to login to a web application and then move to other parts of the application: use HTTP::Request::Common qw(POST); use LWP::UserAgent; use Data::Dumper; $ua = LWP::UserAgent->new(keep_alive=>1); my $req = POST "http://example.com:5002/index.php", [ user_name =>…

  Read the article

• How can I generate a unique ID using a hash in Perl?

  - by sganesh

  I doing message transfer program between multiple clients and server. I want to generate unique message id for every messages. that should be generated by server and return to client. For message transfer I am using hash data structure, Ex: { api => POST, username => sganesh, pass => "pass",…

  Read the article

• How can I extract just the elements I want from a Perl array?

  - by Flamewires

  Hey I'm wondering how I can get this code to work. Basically I want to keep the lines of $filename as long as they contain the $user in the path: open STDERR, ">/dev/null"; $filename=`find -H /home | grep $file`; @filenames = split(/\n/, $filename); for $i (@filenames)…

  Read the article

• Why do I get "Bad File Descriptor" when I try to read a file with Perl?

  - by Magicked

  I'm trying to read a binary file 40 bytes at a time, then check to see if all those bytes are 0x00, and if so ignore them. If not, it will write them back out to another file (basically just cutting out large blocks of null bytes). This may not be the most efficient way to do this, but I'm not worried…

  Read the article

• update a column in input file by taking value from Database in perl.

  - by Rahul Singh

  input file: 1,a,USA,, 2,b,UK,, 3,c,USA,, i want to update the 4th column in the input file from taking values from one of the table. my code looks like this: my $customer_dbh = DBI-connect("DBI:Oracle:$INST", $USER, $PASS ) or die "Couldn't connect to datbase $INST"; my $cust_smh; print "connected…

  Read the article

• Is it possible to symbolically reference a Perl CORE module?

  - by Blaise Roth

  I know I could easily do something like sub sin { sin($_[0]); } and symbolically reference that for every function I need to symb ref, but I'd just like to know if there's a way to do something like {$foo}(123); vs. &{$foo}(123); which works, but not for core functions. Thanks.

  Read the article

• Perl, deleting an .xml file created and open with IO::File and XML::Writer?

  - by Sho Minamimoto

  So I'm running through a list of things and have code that creates an .xml file with IO::File called $doc, then I make a new writer with XML::Writer(OUTPUT = $doc). More code runs and I build a big xml file with XML::Writer. Then, near the end of the file, I find out if I need this file at all. If I…

  Read the article

• Is Perl code mainly written in object-oriented-design?

  - by sid_com

  Since there is for almost everything a module and it is repeatedly said that we should not reinvent the wheel and since I do not write modules for cpan I have no need to use OO. But my question is, is professional Perlcode mainly written in OO-style?

  Read the article

• How can I tell if a filehandle is empty in Perl?

  - by joe

  For example: open (PS , " tail -n 1 $file | grep win " ); I want to find whether the file handle is empty or not.

  Read the article

• How can I save the memories from the Perl match operator in variables?

  - by joachim

  If I have a match operator, how do I save the parts of the strings captured in the parentheses in variables instead of using $1, $2, and so on? ... = m/stuff (.*) stuff/; What goes on the left?

  Read the article

• How can I get node coordinates from a graph, using Perl?

  - by jonny

  Ok, I have a flowchart definition (basically, array of nodes and edges for each node). Now I want to calculate coordinates for every task in the flow, preferably hierarchycal style. I need something like Graph::Easy::Layout but I have no idea how to get nodes coordinates: I render nodes myself and…

  Read the article

• How can I get ranges from a list of integers in Perl?

  - by Suezy

  I have an array of numbers: @numbers = 1,2,3,6,8,9,11,12,13,14,15,20 and I want to print it this way: 1-3,6,8-9,11-15,20 Any thoughts? Of course I tried using the most common "looping", but still didn't get it.

  Read the article

• How is this Perl code selecting two different elements from an array?

  - by Mike

  I have inherited some code from a guy whose favorite past time was to shorten every line to its absolute minimum (and sometimes only to make it look cool). His code is hard to understand but I managed to understand (and rewrite) most of it. Now I have stumbled on a piece of code which, no matter…

  Read the article

• How do I use an index in an array reference as a method reference in Perl?

  - by Robert P

  Similar to this question about iterating over subroutine references, and as a result of answering this question about a OO dispatch table, I was wondering how to call a method reference inside a reference, without removing it first, or if it was even possible. For example: package Class::Foo;…

  Read the article

< Previous Page | 56 57 58 59 60 61 62 63 64 65 66 67  | Next Page >