Perl Signals Aggregator

Posted by chromatic at Wed, 10 Mar 2010 22:29:20 -0000 | Permalink

Posted by 孤云落雪 at Wed, 10 Mar 2010 21:41:36 -0000 | Permalink

Can you please tell me the steps I need to follow in order to obtain an account on CPAN? I'd like to contribute some modules. A while back, I tried to create an account, and I remember I got back a mail containing some of this text:

The following links are only valid for PAUSE maintainers: and there were 2 links :

• Registration form with editing capabilities:

and

• Immediate (one click) registration:

I remember I clicked on the Immediate registration but it asked me for a username & password.I did not knew how to go on from there. Was I going in the wrong direction? Does anyone have a step by step account registration tutorial?

Posted by Geo on perl, cpan at Wed, 10 Mar 2010 21:39:47 -0000 | Permalink

Posted by Peter Organisciak at Wed, 10 Mar 2010 20:52:11 -0000 | Permalink

Are there any algorithms available for analyzing the complexity of an image? Basically I'm writing a Perl script that will use the system() function to launch MPlayer in the background to generate 10 to 20 screenshots for the input video file and I'd like it to be able to discard any simple images such as a shot of the sky, or a black background, and other simple images and keep just 3 of those images with the highest complexity or most number of colors. Is there a module or a separate program I can use to accomplish this? I'm guessing maybe Image::Magick can take care of this.

Posted by somebody on perl, imagemagick at Wed, 10 Mar 2010 20:33:36 -0000 | Permalink

I'm trying to get perl running under on my Apache 2 macports install. I'm hoping an experienced perl geek can help me out. I've...

1. Got Apache running just dandy. Macports installed it with perl5 placeholder and perl5.8.9.
2. Installed mod_perl2.
3. Run the script to configure httpd.conf.
4. Restarted apache.

5. Written the following test script in htdocs

   #!/opt/local/bin/perl
   print "content-type: text/html \n\n";
   print 'Hello world.';  
   

All I get is the script contents printed out to the screen. Am I missing a step? Is there some additional configuration I need to do in the .conf file?

Posted by Brooks on perl, macports, mod-perl2, apache2 at Wed, 10 Mar 2010 20:16:06 -0000 | Permalink

Posted by kingdai at Wed, 10 Mar 2010 19:52:07 -0000 | Permalink

Posted by Snek787 at Wed, 10 Mar 2010 19:49:22 -0000 | Permalink

Posted by The Machine at Wed, 10 Mar 2010 19:27:40 -0000 | Permalink

I want to delete from many files each instance of a paragraph. I call paragraph a sequence of lines.

For example:

my first line
my second line
my third line
the fourth
5th and last

the problem is that I only want to delete them when they appear as a group. For example, if

my first line

Posted by flybywire on bash, text-processing, string-manipulation, sed, perl at Wed, 10 Mar 2010 19:25:15 -0000 | Permalink

Posted by John Napiorkowski at Wed, 10 Mar 2010 19:19:16 -0000 | Permalink

Posted by totalwaste at Wed, 10 Mar 2010 18:39:00 -0000 | Permalink

Posted by admin at Wed, 10 Mar 2010 18:37:29 -0000 | Permalink

Posted by Shinji Kuwayama at Wed, 10 Mar 2010 18:35:21 -0000 | Permalink

I am new with Perl. I'm following a bioinformatics webapi and I'm attempting to simply display the value stored in $result. My print "$result\n"; command doesn't appear to be functioning. What are some possibilities as to what is going on here?

# #!/usr/local/bin/perl
use strict;

# 1. include SOAP Lite 
use SOAP::Lite;

# 2. specifies WSDL file
my $service = SOAP::Lite -> service('http://xml.nig.ac.jp/wsdl/GetEntry.wsdl');

# 3. call SOAP service
my $result = $service->getXML_DDBJEntry("AB000003");

print "$result\n";

Posted by JZ on perl, soap-client at Wed, 10 Mar 2010 18:28:45 -0000 | Permalink

Posted by Jerm at Wed, 10 Mar 2010 18:21:00 -0000 | Permalink

Posted by Single Serving at Wed, 10 Mar 2010 17:56:00 -0000 | Permalink

Posted by squarey at Wed, 10 Mar 2010 17:36:42 -0000 | Permalink

I have never used DBIx::Class until today, so I'm completely new at it.

I'm not sure if this is possible or not, but basically I have a table in my SQLite database that has a timestamp column in it. The default value for the timestamp column is "CURRENT_TIMESTAMP". SQLite stores this in the GMT timezone, but my server is in the CDT timeszone.

My SQLite query to get the the timestamp in the correct timezone is this:

select datetime(timestamp, 'localtime') from mytable where id=1;

I am wondering if it is possible in my DBIx schema for "MyTable" to force it to apply the datetime function every time it is retrieving the "timestamp" field from the database?

In the cookbook it looks like it is possible to do this when using the ->search() function, but I am wondering if it's possible to make it so if I'm using search(), find(), all(), find_or_new(), or any function that will pull this column from the database, it will apply the datetime() SQLite function to it?

DBIx::Class seems to have great documentation - I think I'm just so new at it I'm not finding the right places/things to search for.

Thanks in advance!

Posted by BrianH on perl, dbixclass, sqlite at Wed, 10 Mar 2010 17:18:55 -0000 | Permalink

Does anyone know how to prepare data to plot a CDF (I have a bunch of floating point numbers)? I was planning on using gnuplot and on first look, the Statistics::Descriptive module seemed the best fit but looks like I might need some help here.

Posted by Legend on perl, statistics, gnuplot at Wed, 10 Mar 2010 17:16:19 -0000 | Permalink

Posted by unknown at Wed, 10 Mar 2010 16:59:49 -0000 | Permalink

Posted by admin at Wed, 10 Mar 2010 16:55:54 -0000 | Permalink

Posted by admin at Wed, 10 Mar 2010 16:55:17 -0000 | Permalink

Posted by cc at Wed, 10 Mar 2010 16:53:45 -0000 | Permalink

I recently saw someone with a T-shirt with some Perl code on the back. I took a photograph of it and cropped out the code:

Next I tried to extract the code from the image via OCR, so I installed Tesseract OCR and the Python bindings for it, pytesser.

Pytesser only works on TIFF images, so I converted the image in Gimp and entered the following code (Ubuntu 9.10):

>>> from pytesser import *
>>> image = Image.open('code.tif')
>>> print image_to_string(image)
Traceback (most recent call last):
  File "<stdin>", line 1, in <module>
  File "pytesser.py", line 30, in image_to_string
    util.image_to_scratch(im, scratch_image_name)
  File "util.py", line 7, in image_to_scratch
    im.save(scratch_image_name, dpi=(200,200))
  File "/usr/lib/python2.6/dist-packages/PIL/Image.py", line 1406, in save
    save_handler(self, fp, filename)
  File "/usr/lib/python2.6/dist-packages/PIL/BmpImagePlugin.py", line 197, in _save
    raise IOError("cannot write mode %s as BMP" % im.mode)
IOError: cannot write mode RGBA as BMP
>>> r,g,b,a = image.split()
>>> img = Image.merge("RGB", (r,g,b))
>>> print image_to_string(img)
Tesseract Open Source OCR Engine

     éi     _   l_` _ t  
  ’   ‘" fY`  
  {  W       IKQW
  ·  __·_  ‘ ·-»·      
       :W   Z  
  ··  I  A n   1   
           ;f        
     `    `      
`T     .' V   _ ‘  
I  {Z.; » ;,. , ;  y i-   4 : %:,,    
      `· »    V; ` ?    
‘,—·.    
H***li¥v·•·}I§¢   ` _  »¢is5#__·¤G$++}§;“»‘7·
  71   ’    Q  {  NH IQ
  ytéggygi {     ;g¤qg;gm·;,g(g,,3) {3;;+-
   § {Jf**$d$ }‘$p•¢L#d¤ Sc}
  »   i `  i A1:

That's clearly gibberish that comes out of the OCR engine. So, my question is:

• What do I have to do to get better OCR results out of Tesseract?
• Or, does anybody else have better luck extracting the code from the above image in another way?

Posted by jeroen.vangoey on ocr, tesseract, perl, python, bioinformatics at Wed, 10 Mar 2010 16:43:36 -0000 | Permalink

Posted by Ovid at Wed, 10 Mar 2010 16:31:51 -0000 | Permalink

Line directives are used to reconfigure perl's idea of the current filename and line number. When is this required to get right filename and line number (in an error message)?

Posted by eugene y on perl, line-directive, debugging at Wed, 10 Mar 2010 16:16:11 -0000 | Permalink

Posted by NPEREZ at Wed, 10 Mar 2010 16:13:00 -0000 | Permalink

I'm continuing to work out of an outdated bioinformatics book and I'm attempting to use the XML::Smart Module.

I suspect the module's methods have changed over the course of 6 years and I'm inexperienced with perl to troubleshoot from cpan source. The commented out code proves the ncbi.gov query functions, I'm having trouble with the 'new' method - it's not parsing the XML. What am I doing wrong? Thanks!

Update Specifically I'm running into trouble with parsing and displaying the Id array: my @Id = $results->{eSearchResult}{IdList}{Id}{'@'}; I'm running this on OSX terminal and I don't see any Ids when I run this script. I am seeing the proper Count. Thanks!

#!/usr/local/bin/perl
# use lib "/Users/fogonthedowns/myperllib";
# use LWP::Simple;
use XML::Smart;
use strict;

#Set base URL for all eutils
my $utils = "http://eutils.ncbi.nlm.nih.gov/entrez/eutils";
my $db = "Pubmed";
my $query ="Cancer+Prostate";
my $retmax = 10;
my $esearch = "$utils/esearch.fcgi?" . 
              "db=$db&retmax=$retmax&term=";

# my $esearch_result = get($esearch.$query);
# print "ESEARCH RESULT: $esearch_result\n";
# print "Using Query: \n$esearch$query\n";
# print "hello world\n";

my $results = XML::Smart->new($esearch.$query,"XML::Parser");
my $count = $results->{eSearchResult}{Count};
my @Id = $results->{eSearchResult}{IdList}{Id}{'@'};
my $all_Id = join("\n", @Id);

print "Count = $count\n";
print "$all_Id\n";

Posted by JZ on perl, xml-parsing, bioinformatics at Wed, 10 Mar 2010 15:51:12 -0000 | Permalink

So again using Moose I write a role like this:

package My::Role;
use Moose::Role;
use Some::Class::Consuming::My::Role;

With the note that Some::Class::Consuming::My::Role consumes the role My::Role;

And what do I get ? I get an error message like this:

A role generator is required to generate roles at /usr/local/share/perl/5.10.0/MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm line 79
    MooseX::Role::Parameterized::Meta::Role::Parameterizable::generate_role('MooseX::Role::Parameterized::Meta::Role::Parameterizable=HASH...', 'consumer', 'Moose::Meta::Class=HASH(0x894e540)', 'parameters', 'HASH(0x86fc1e0)') called at /usr/local/share/perl/5.10.0/MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm line 116
    MooseX::Role::Parameterized::Meta::Role::Parameterizable::apply('MooseX::Role::Parameterized::Meta::Role::Parameterizable=HASH...', 'Moose::Meta::Class=HASH(0x894e540)', 'element_type', 'Tuple') called at /usr/local/lib/perl/5.10.0/Moose/Util.pm line 132
    Moose::Util::_apply_all_roles('Moose::Meta::Class=HASH(0x894e540)', undef, 'CM::Group', 'HASH(0x894e1d0)') called at /usr/local/lib/perl/5.10.0/Moose/Util.pm line 86
    Moose::Util::apply_all_roles('Moose::Meta::Class=HASH(0x894e540)', 'CM::Group', 'HASH(0x894e1d0)') called at /usr/local/lib/perl/5.10.0/Moose.pm line 57
    Moose::with('Moose::Meta::Class=HASH(0x894e540)', 'Group', 'HASH(0x894e1d0)') called at /usr/local/lib/perl/5.10.0/Moose/Exporter.pm line 293
    Moose::with('Group', 'HASH(0x894e1d0)') called at Some_path_on_disk line 6
    require Some_other_path_on_disk called at Some_path_on_disk line 9
    Group::BEGIN() called at Yet_another_path_on_disk line 0
    eval {...} called at  Yet_another_path_on_disk line 0
Compilation failed in require at some_path_on_disk line 9.
BEGIN failed--compilation aborted at some_path_on_disk line 9.

What am I to make of this ? As Dijkstra would concisely describe, this looks like "just a meaningless concatenation of words"(which is exactly what it is).

Would a more appropriate error message be "You cannot use a class consuming the role that you are currently defining " ?

1. What does the error message try to convey ?
2. Can the author make the error message meaningful ? Will he ever make it so ? maybe this can be planned for version 3.14159265358979323846 ?

In actuality I get one and a half pages of error which is completely unreadable and devoid of any logic or sense of respect for the user that is using Moose (in terms of intuitive error messages) just like the one above.

What's to be done in this case ?

I mean I get on my screen these error messages that are sometimes completely unrelated to the problem that I'm having (which I can assess after solving the problems that probably caused them, I say probably becuase I have no idea where these error messages came from because they look like they fell from the sky as they have no relation to the actual situation). Is this:

• the inexplicable dramatic destiny of the Perl programmer using Moose ?
• someone being extremely lazy and sloppy at writing error messages ? maybe on heavy drugs ?
• me not understanding basic english ?

Gentlemen, when writing software, please please please, take care of the poor programmer that will use it and respect him by writing relevant error messages.

(Except for error messages Moose is a pretty good piece of software)

Posted by xxxxxxx on perl, moose, roles, error, messages at Wed, 10 Mar 2010 15:39:22 -0000 | Permalink

If i do this:

GetOptions(
    'u=s'    => \$in_username,
    'r=i'   => \$in_readonly,
    'b=i' => \$in_backup
    );

exit usage() unless $in_username && $in_readonly && $in_backup;

and call the program like this:

./app.pl -u david -r 12 -b 0

it always results in calling usage(), so obviously the 0 is not seen as an integer value. What can i do accept integer values AND 0?

Posted by David on perl, getopt-long, zero, integer, parameters at Wed, 10 Mar 2010 15:07:18 -0000 | Permalink

Posted by Sugar at Wed, 10 Mar 2010 14:37:00 -0000 | Permalink

Posted by GadBall at Wed, 10 Mar 2010 14:03:00 -0000 | Permalink

Posted by Earn money jobs worldwide at Wed, 10 Mar 2010 13:43:19 -0000 | Permalink

Posted by Andrey Vystavkin at Wed, 10 Mar 2010 13:24:39 -0000 | Permalink

Posted by Shishir Sharma 'criss' at Wed, 10 Mar 2010 12:15:41 -0000 | Permalink

I have a file of 1000 lines, each line has 2 words, seperated by a space. How can I print each line only if the last word length is greater than 7 chars? Can I use awk RLENGTH? is there an easy way in perl?

Posted by paul44 on perl, awk at Wed, 10 Mar 2010 11:45:26 -0000 | Permalink

Posted by hotcandidates mike obrien at Wed, 10 Mar 2010 11:21:23 -0000 | Permalink

Posted by Sawyer X at Wed, 10 Mar 2010 11:05:19 -0000 | Permalink

Why is there no error issued by strict:

use strict;

$a = $a + 1;

Posted by planetp on perl, strictures at Wed, 10 Mar 2010 10:55:36 -0000 | Permalink

I have a doubt in system function.I want to store the system functions output to a variable.

For example,

system("ls");

Here I want all the file names in the current directory to store in a variable.I know that I can do this by redirecting the output into a file and read from that and store that to a variable. But I want a efficient way than that.Is there any way .

Posted by karthi-27 on perl at Wed, 10 Mar 2010 10:04:41 -0000 | Permalink

Possible Duplicate:
How can I programmatically convert Word doc or docx files into text files?

hi all...

sorry for posting the same question once again.. please see the bewlow link... in that link one program is written for windows system... can anyone know who the program is for linux system..please see the link.. http://stackoverflow.com/questions/1110409/how-can-i-programmatically-convert-word-doc-or-docx-files-into-text-files

i need a way to "saveas" .doc file in open office to .txt .i need a program in Perl which can do that automatically.that means i don't want to open that word document and go to saveas and do it...what i need is i will just give word document name and that script should give the corresponding txt file as output.

one important thing is my system is Linux based one.i saw the same program for windows system here only. but i need this program in Linux. that to "antiword" ,"catdoc","wv ware" commends are not working in my Linux..

please help me regarding this.

thank u in advance.

Posted by siva prasad on linux, perl at Wed, 10 Mar 2010 09:25:16 -0000 | Permalink

Possible Duplicate:
How do I Make a new Moose class and instantiate an object of that class at runtime?

How do I build a Moose class at runtime, add a method to it, apply a role to it and instantiate it once? How would you approach this?

Posted by xxxxxxx on moose, runtime, perl, class, role at Wed, 10 Mar 2010 08:14:19 -0000 | Permalink

After creating a metaclass using Moose::Meta::Class->create, how do I instantiate a real Moose class with that class as a metaclass? (I need to create the metaclass also because I also want to apply some roles to it.)

Posted by xxxxxxx on perl, moose, meta, runtime, class at Wed, 10 Mar 2010 07:11:05 -0000 | Permalink

I define a method inside a parametrized role that needs to create a new class at run time using Moose::Meta::Class->create and apply that exact parametrized role to it. I am also making a new method for that role using

$new_class->meta->add_method( some_name => sub {
 my ($self) = @_;
 ...
})

inside the sub {...} I want to access a method of the consumer class and use it for something, I have tried using $self->get_method, it didn't work, how do I do this?

Please notice that the $self inside the sub above is MooseX::Role::Parameterized::Meta::Role::Parameterizable

I also have another question, if I do this:

my $object = Moose::Meta::Class->create(
       "some_type",

);

Why isn't $object of type some_type and it's some ugly MooseX::Role::Parameterized::Meta::Role::Parameterizable and how do I get to the object of type some_type?

Posted by xxxxxxx on perl, moose, roles at Wed, 10 Mar 2010 06:49:19 -0000 | Permalink

I have hack I need to employ under these conditions:
-It's the last page of data.
-It's not the first page, either.
-There's not a page-size-even number of data items.

So I tried this code:

my $use_hack = 
   $last_page_number == $current_page_number and
   $page_number != 1 and
   $total_items % $items_per_page != 0;

And I keep getting this warning Useless use of numeric ne (!=) in void context about the last condition and it's evaluating true when $total_items % $items_per_page = 0.

say 'NOT EVEN' if $total_items % $items_per_page != 0;  #works properly, though...

I've tried various combinations of parentheses to get it right, but nothing seems to work.

Posted by wes on perl, syntax, precedence at Wed, 10 Mar 2010 04:59:49 -0000 | Permalink

Posted by thomas11 at Tue, 09 Mar 2010 21:35:33 -0000 | Permalink

I'm following a bioinformatics text, and this represents one of my first perl scripts. While in textmate, this does not produce any result. Is it functioning? I added "hello world" at the bottom and I don't see that when I run the script in textmate. What have I done wrong?

#!/usr/local/bin/perl -w
use lib "/Users/fogonthedowns/myperllib";
use LWP::Simple;
use strict;

#Set base URL for all eutils
my $utils = "http://eutils.ncbi.nlm.nih.gov/entrez/eutils";
my $db = "Pubmed";
my $query ="Cancer+Prostate";
my $retmax = 10;
my $esearch = "$utils/esearch.fcgi?" . 
              "db=$db&retmax=$retmax&term=";

my $esearch_result = get($esearch.$query);
print "ESEARCH RESULT: $esearch_result\n";
print "Using Query: \n$esearch$query\n";
print "hello world\n";

Posted by JZ on perl, hello-world at Tue, 09 Mar 2010 21:00:01 -0000 | Permalink

I'm trying to understand the performance numbers I'm getting and how to determine the optimal number of threads.

I wrote an experimental multi-threaded web client in perl which downloads a page, grabs the source for each image tag and downloads the image - discarding the data.

It uses a non-blocking connect with an initial per file timeout of 10 seconds which doubles after each timeout and retry. It also caches IP addresses so each thread only has to do a DNS lookup once.

The total amount of data downloaded is 2271122 bytes in 1316 files via 2.5Mbit connection from http://hubblesite.org/gallery/album/entire/npp/all/hires/true/ . The thumbnail images are hosted by a company which claims to specialize in low latency for high bandwidth applications.

Wall times are:

1 Thread takes 4:48 -- 0 timeouts
2 Threads takes 2:38 -- 0 timeouts
5 Threads takes 2:22 -- 20 timeouts
10 Threads take 2:27 -- 40 timeouts
50 Threads take 2:27 -- 170 timeouts

In the worst case ( 50 threads ) less than 2 seconds of CPU time are consumed by the client.

avg file size 1.7k
avg rtt 100 ms ( as measured by ping )
avg cli cpu/img 1 ms

The fastest average download speed is 5 threads at about 15 KB / sec overall.

The server actually does seem to have pretty low latency as it takes only 218 ms to get each image meaning it takes only 18 ms on average for the server to process each request:

0 cli sends syn
50 srv rcvs syn
50 srv sends syn + ack
100 cli conn established / cli sends get
150 srv recv's get
168 srv reads file, sends data , calls close
218 cli recv HTTP headers + complete file in 2 segments MSS == 1448

I can see that the per file average download speed is low because of the small file sizes and the relatively high cost per file of the connection setup.

What I don't understand is why I see virtually no improvement in performance beyond 2 threads. The server seems to be sufficiently fast, but already starts timing out connections at 5 threads.

The timeouts seem to start after about 900 - 1000 successful connections whether it's 5 or 50 threads, which I assume is probably some kind of throttling threshold on the server, but I would expect 10 threads to still be significantly faster than 2.

Am I missing something here?

EDIT-1

Just for comparisons sake I installed the DownThemAll Firefox extension and downloaded the images using it. I set it to 4 simultaneous connections with a 10 second timeout. DTM took about 3 minutes to download all the files + write them to disk, and it also started experiencing timeouts after about 900 connections.

I'm going to run tcpdump to try and get a better picture what's going on at the tcp protocol level.

I also cleared Firefox's cache and hit reload. 40 Seconds to reload the page and all the images. That seemed way too fast - maybe Firefox kept them in a memory cache which wasn't cleared? So I opened Opera and it also took about 40 seconds. I assume they're so much faster because they must be using HTTP/1.1 pipelining?

Posted by Robert S. Barnes on tcp, multithreading, http, perl, network-programming at Tue, 09 Mar 2010 15:56:50 -0000 | Permalink

Update: the complete code sample, illustrating the problem.

1  my %val = map { $_ => read_val($_) } (1,2,3);
2
3  sub read_val {
4      open my $fh, '<', 'myfile' or die $!;
5      while (<$fh>) {
6          if ($. == $_[0]) {
7              return $_
8          }
9      }
10 }

Modification of a read-only value attempted at test.pl line 5.

What's going on here?

Posted by planetp on perl, operators, io, readonly at Tue, 09 Mar 2010 13:57:57 -0000 | Permalink

In the spirit of the "Perl Preamble" where a script works properly whether executed by a shell script interpreter or the Perl interpreter...

I have a Perl script which contains an embedded HTML document (as a "heredoc"), i.e.:

#!/usr/bin/perl

... some Perl code ...

my $html = <<'END' ;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>

... more HTML ...

</HTML>
END

... Perl code that processes $html ...

I would like to be able to work on the HTML that's inside the Perl script and check it out using a web browser, and only run the script when the HTML is the way I want. To accomplish this, I need the file to be openable both as an HTML file and as a Perl script.

I have tried various tricks with Perl comments and HTML comments but can't get it quite perfect. The file as a whole doesn't have to be "strictly legal" HTML (although the embedded document should be)... just displayable in a browser with no (or minimal) Perl garbage visible.

EDIT: Solved! See my own answer

Posted by JoelFan on html, perl, hacks, comments at Tue, 09 Mar 2010 04:41:05 -0000 | Permalink

Hello! With the Device::Gsm I can read the sms received on my umts-modem. Sometimes one message is divided in two or more sms because of the limitation of length of one sms. Is there a way to find out if a group of sms is a part of one message? Wammu for example shoes me sms that belong together as one text.

#!/usr/bin/perl  
use warnings; use strict;  
use Device::Gsm;  

my $modem = new Device::Gsm( port => '/dev/ttyUSB0' );  
if( $modem->connect() ) {  
    print "connected!\n";  
}   
else {  
    print "sorry, no connection with serial port!\n";  
}  

my @msg = $modem->messages;  
if( @msg ) {  
    my $n = 0;  
    for( @msg ) {  
    my $sms = $_;  
    next unless defined $sms;  
    print "\nMESSAGE N. $n\n";  
    print 'Text   [', $sms->text(), "]\n";  
    $n++;  
    }  
}  
else {   
    print "No message on SIM, or error during read!\n";   
}  

connected!

MESSAGE N. 0 Text [Message 1 Part 1]

MESSAGE N. 1 Text [Message 1 Part 2]

MESSAGE N. 2 Text [Message 1 Part 3]

MESSAGE N. 3 Text [Message 2 ]

MESSAGE N. 4 Text [Message 3]

Posted by sid_com on perl, gsm, sms at Mon, 08 Mar 2010 14:46:20 -0000 | Permalink

Hello, I m looking to separate the database code from the rest of the code in our application and looking to use an ORM framework that will work well for that knowing that the database is not well designed. I looked in other topics and found that most people suggest DBIx:class, Rose:DB:Object... but did not know which one will work best in my case.

Any suggestions are highly appreciated.

Thanks

Posted by Sam on perl, orm, framework at Mon, 08 Mar 2010 14:34:42 -0000 | Permalink

pad({ text=>$line, cols=>20 }) 

pad( text=>$line, cols=>20 ) 

my ($hashref) = @_;
my $foo = $hash->{foo};

my %hash = @_;
my $foo = $hash{foo};

$uniprot->retrieve(@ids, {format=>'rdf', include=>1}): 

my %RETRIEVE_DEFAULTS = (
    format => 'fasta',
    debug => 0 );

sub retrieve {
    my ($ids_ref, $conf_ref) =
        _get_args_and_conf(\%RETRIEVE_DEFAULTS, @_);
    # $ids_ref now contains the arguments, here some ids to
    # retrieve from uniprot.org, and $conf_ref contains the
    # configuration hash with the user's values if given, and the
    # default ones otherwise.
}

sub _get_args_and_conf {
    my $default_conf_ref = shift;
    my @args = @_;
    croak "I need at least one argument!" if @_ < 1;

    # if last arg is a hash, it's additional configuration
    my %defaults = %{$default_conf_ref};
    my %conf = ref $args[-1] eq 'HASH' ?
        (%defaults, %{pop @args}) : %defaults;
    if (@args < 1) {
        croak "I need at least one argument in addition to the hash!";
    }

    # TODO Deal with the case that the argument list is given as a
    # reference.

    return (\@args, \%conf);
}

Posted by thomas11 at Mon, 08 Mar 2010 14:34:40 -0000 | Permalink

Posted by ogiseo at Mon, 08 Mar 2010 13:40:25 -0000 | Permalink

Posted by ogiseo at Mon, 08 Mar 2010 13:09:24 -0000 | Permalink

Posted by gpnnpg on perl, opera | Permalink

Posted by EinSascha on perl, opera | Permalink

Posted by mcd on perl, opera | Permalink

Posted by aanoaa on perl, opera | Permalink

Posted by mr49online on perl, opera | Permalink

Posted by gpnnpg on perl, opera | Permalink

Posted by EinSascha on perl, opera | Permalink

Posted by operabaker on perl, opera | Permalink

Posted by nicomen on perl, opera | Permalink

Posted by nicomen on perl, opera | Permalink

Posted by gpnnpg on perl, opera | Permalink

Posted by aanoaa on perl, opera | Permalink

Posted by eexpress on perl, opera | Permalink

Posted by gpnnpg on perl, opera | Permalink

Posted by vietechno on perl, opera | Permalink

Posted by yenhong4 on perl, opera | Permalink