Hi All,
Using GD::Graph::pie, I have created a pie chart. But, I am unable to add a
legend to the chart.
Is there any provision to add legend to a pie chart ?

~SrInIVaS ReDdy


[Non-text portions of this message have been removed]

Hi,

I am using the IMAP::Client for automating the quota check
for some of the users. My script was fairly straight,  and I ran in to
the below error, while running the script. The error returned by the
$imap->error  function is

QUOTA not supported for GETQUOTAROOT command at imap.pl

As per the function description given in the page

http://search.cpan.org/~conteb/IMAP-Client-0.13/lib/IMAP/Client.pm

The  getquotaroot function accepts the mail box name only.

My code snippet is given below

my %quota=$imap->getquotaroot('INBOX') || die $imap->error();
print "Quota: $quota{'STORAGE'} \n";


Please help me to debug this issue.

Regards,
Shameem

# Display the IMAP resource usage on the user's post office server.



use strict;

use warnings FATAL => 'all';

use Cyrus::IMAP;

use Getopt::Std;



sub usage(;$);

sub print_quota($$$$$);

sub send_command($);

sub quota_callback(@);

sub quotaroot_callback(@);

sub capability_callback(@);

sub close_and_errorout($);

sub close_connection();

sub errorout($);



sub usage(;$) {

     print STDERR "mailquota: $_[0]\n" if $_[0];

     print STDERR <<EOF;

Usage: mailquota [<options>] [<user>]

   Options:

     -h <host>     query <host> instead of default post office server

     -m <mailbox>  query for <mailbox> (default is INBOX)

     -n            be silent unless usage % is above the threshold

     -u <percent>  usage % threshold (default is 90); implies -n

     -d            turn on debugging

EOF

     exit 1;

}



my $need_header = 1;

my $root_width = 16;

my $num_width = 10;

my $percent_width = 5;

my $format = "%-${root_width}.${root_width}s" .

     " %${num_width}s %${num_width}s %${percent_width}s" .

     " %${num_width}s %${num_width}s %${percent_width}s\n";



# Parse the command line arguments.

my %opts;

getopts('dh:m:nu:', \%opts) || usage;

my $username = shift @ARGV || $ENV{'USER'} || getlogin || (getpwuid($<))[0]
||

       errorout "Cannot determine user name";



usage "Too many arguments" if @ARGV > 0;

my $debug = $opts{'d'};

my $warn_only = $opts{'n'};

my $usage_threshold = $opts{'u'};

my $host = $opts{'h'} || (split(" ", `hesinfo $username pobox`))[1] ||

     errorout "Cannot find Post Office server for $username";

my $mbox = $opts{'m'} || "INBOX";



# Validate the usage percentage threshold, allowing a trailing %.

# Setting the threshold implies we should only display quotas

# for which any resource usage is above the threshold.

if (defined $usage_threshold) {

     chop $usage_threshold if $usage_threshold =~ /^\d+%$/;

     usage "-u argument must be numeric" if $usage_threshold !~ /^\d+$/;

     $warn_only = 1;

} else {

     $usage_threshold = 90;

}



# Connect to the IMAP server, check for the QUOTA extension, and

# authenticate.

my $client = Cyrus::IMAP->new($host) ||

     errorout "Cannot connect to IMAP server on $host";

my $caps = '';

$client->addcallback({-trigger => 'CAPABILITY',

                   -callback => \&capability_callback,

                   -rock => \$caps});

send_command "CAPABILITY";

$caps =~ '\bQUOTA\b' ||

     close_and_errorout "$host does not support the IMAP QUOTA extension";

$client->authenticate(-authz => $username) ||

     close_and_errorout "Cannot authenticate to $host";



# Send the GETQUOTAROOT command, which returns both the QUOTA and

# QUOTAROOT responses.  Quota information will be displayed via

# the QUOTA callback.

$client->addcallback({-trigger => 'QUOTA',

                   -callback => \"a_callback});

$client->addcallback({-trigger => 'QUOTAROOT',

                   -callback => \"aroot_callback});

send_command "GETQUOTAROOT \"$mbox\"";



# We are done talking to the IMAP server; close down the connection.

close_connection();



# Print the quota information for the given quota root and its

# storage and message resource values.

sub print_quota($$$$$) {

     my ($root, $storage_used, $storage_max, $message_used, $message_max) =
@_;

     my $storage_percent;

     my $storage_percent_out;

     my $message_percent;

     my $message_percent_out;



     # Calculate the usage percentages, and format for output.

     if ($storage_max) {

       $storage_percent = ($storage_used / $storage_max) * 100;

       $storage_percent_out = sprintf("%.0f%%", $storage_percent);

     }

     if ($message_max) {

       $message_percent = ($message_used / $message_max) * 100;

       $message_percent_out = sprintf("%.0f%%", $message_percent);

     }



     # Skip this quota if we are only displaying usages above the

     # specified threshold.

     return unless (!$warn_only ||

                (defined $storage_percent &&

                 $storage_percent >= $usage_threshold) ||

                (defined $message_percent &&

                 $message_percent >= $usage_threshold));



     # Print a header if this is the first line of output.

     if ($need_header) {

       printf($format,

              "Quota",

              "KB Used", "KB Max", "KB %",

              "# Msgs", "# Max", "# %");

       $need_header = 0;

     }

     printf($format,

          $root,

          defined $storage_used ? $storage_used : '-',

          defined $storage_max ? $storage_max : '-',

          defined $storage_percent_out ? $storage_percent_out : '-',

          defined $message_used ? $message_used : '-',

          defined $message_max ? $message_max : '-',

          defined $message_percent_out ? $message_percent_out : '-');

}



# Subroutine to send a command to the IMAP server, and wait for the

# response; any defined callbacks for the response are invoked.

# If the server response indicates failure, we error out.

sub send_command($) {

     print "Sending: $_[0]\n" if $debug;

     my ($status, $text) = $client->send('', '', $_[0]);

     print "Response: status $status, text $text\n" if $debug;

     errorout "Premature end-of-file on IMAP connection to $host"

       if $status eq 'EOF';

     close_and_errorout "IMAP error for $mbox on $host: $text"

       if $status ne 'OK';

}



# Callback subroutine to parse the QUOTA response.

# The "-text" hash element contains the quota root name, and a list

# of quota resource names, usages, and limits.  Recognized names are

# STORAGE (sum of message sizes, in kilobytes) and MESSAGE (number of

# messages).  See RFC 2087.

sub quota_callback(@) {

     my %cb = @_;

     my ($root, $quotalist);

     print "In QUOTA callback: text $cb{-text}\n" if $debug;

     if (($root, $quotalist) = ($cb{-text} =~ /(\S*)\s+\((.*)\)/io)) {

       my ($storage_used, $storage_max, $message_used, $message_max);

       while ($quotalist) {

           my ($resource, $used, $max);

           ($resource, $used, $max, $quotalist) = split /\s/, $quotalist, 4;

           last unless $max;

           $resource = uc $resource;

           if ($resource eq "STORAGE") {

             $storage_used = $used;

             $storage_max = $max;

           }

           elsif ($resource eq "MESSAGE") {

             $message_used = $used;

             $message_max = $max;

           }

       }

       print_quota($root, $storage_used, $storage_max,

                 $message_used, $message_max)

           if (defined $storage_max || defined $message_max);

     }

}



# Callback subroutine to parse the QUOTAROOT response.  The "-text"

# hash element contains the mailbox name, and zero or more quota root

# names.  This is currently used for debugging only.

sub quotaroot_callback(@) {

     my %cb = @_;

     print "In QUOTAROOT callback: text $cb{-text}\n" if $debug;

}



# Callback subroutine to parse the CAPABILITY response.  The "-rock" hash

# element is a reference to the string in which to store the space-separated

# capability names.

sub capability_callback(@) {

     my %cb = @_;

     print "In CAPABILITY callback: keyword $cb{-keyword}, text $cb{-text}\n"

       if $debug;

     ${$cb{-rock}} = $cb{-text};

}



# Close the connection to the IMAP server, and error out.

sub close_and_errorout($) {

     close_connection();

     errorout $_[0];

}



# Logout from the IMAP server, and close the connection.

sub close_connection() {

     $client->send('', '', "LOGOUT");

     # Set the client reference to undef, so that perl invokes the

     # destructor, which closes the connection.  Note that if we invoke

     # the destructor explicitly here, then perl will still invoke it

     # again when the program exits, thus touching memory which has

     # already been freed.

     $client = undef;

}



sub errorout($) {

     print STDERR "mailquota: $_[0]\n";

     exit 1;

}





From: perl-beginner@yahoogroups.com [mailto:perl-beginner@yahoogroups.com]
On Behalf Of Shameem Ahamed
Sent: Thursday, October 29, 2009 12:56 PM
To: perl-beginner@yahoogroups.com
Subject: [PBML] Problem with function getquotaroot in IMAP::Client





Hi,

I am using the IMAP::Client for automating the quota check
for some of the users. My script was fairly straight, and I ran in to
the below error, while running the script. The error returned by the
$imap->error function is

QUOTA not supported for GETQUOTAROOT command at imap.pl

As per the function description given in the page

http://search.cpan.org/~conteb/IMAP-Client-0.13/lib/IMAP/Client.pm

The getquotaroot function accepts the mail box name only.

My code snippet is given below

my %quota=$imap->getquotaroot('INBOX') || die $imap->error();
print "Quota: $quota{'STORAGE'} \n";

Please help me to debug this issue.

Regards,
Shameem





[Non-text portions of this message have been removed]

Hello,
 
Can some one help me?
 
How to get data from website, then save to file.
 
example from  http://www.website.com/page.html
 
TIA
Yanto Asnawi

[Non-text portions of this message have been removed]

>>>>> "Yanto" == Yanto asnawi <yanto_asnawi@...> writes:

Yanto> Hello,
Yanto>  
Yanto> Can some one help me?
Yanto>  
Yanto> How to get data from website, then save to file.
Yanto>  
Yanto> example from  http://www.website.com/page.html

LWP::Simple is your friend.  Install it, then read the docs.
Plenty of examples.


--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@...> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion

Greetings!

I apologize for not reacting to spam messages that were posted in the last few
weeks.  A spam filter someplace is doing its job too well, and they did not come
through into my E-mail.  Normally, when I see a spam message on this group, I
ban the author immediately and remove the message from the group's archives. 
However, I don't check the group's archives unless a message comes through.  One
finally did just now, and I cleaned things up.

If you want to alert me to spam messages that need action, feel free to send a
message to perl-beginner-owner@yahoogroups.com.

Thank you for your patience and understanding.

Rob Richardson

could anybody help me in finding the best book (author) for the perl
programming language.................?

also mention the sites where i can get tutorials and e-books for the perl
programming language..............


iam interested in learning perl language...............

please provide me with the details.............

waiting for the answer..............

>>>>> "Ashok" == Ashok  <ashok1288@...> writes:

Ashok> could anybody help me in finding the best book (author) for the perl
Ashok> programming language.................?

http://lmgtfy.com/?q=best+perl+books

Ashok> also mention the sites where i can get tutorials and e-books for the perl
programming language..............

http://lmgtfy.com/?q=perl+tutorials

Ashok> waiting for the answer..............

Why were you waiting?

--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@...> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion

I have found that the Perl books by O'Reilly, written by the guys deeply
involved in the Perl world, have been most helpful to me.  Good luck.

John

   ----- Original Message -----
   From: Ashok
   To: perl-beginner@yahoogroups.com
   Sent: Monday, December 21, 2009 11:35 PM
   Subject: [PBML] BOOK & Tutorials



   could anybody help me in finding the best book (author) for the perl
   programming language.................?

   also mention the sites where i can get tutorials and e-books for the perl
programming language..............

   iam interested in learning perl language...............

   please provide me with the details.............

   waiting for the answer..............






[Non-text portions of this message have been removed]

This is true...their books are all I read
Sent from my BlackBerry Smartphone provided by Alltel

-----Original Message-----
From: "John Harris" <jkharris@...>
Date: Mon, 21 Dec 2009 23:55:47
To: <perl-beginner@yahoogroups.com>
Subject: Re: [PBML] BOOK & Tutorials

I have found that the Perl books by O'Reilly, written by the guys deeply
involved in the Perl world, have been most helpful to me.  Good luck.

John

   ----- Original Message -----
   From: Ashok
   To: perl-beginner@yahoogroups.com
   Sent: Monday, December 21, 2009 11:35 PM
   Subject: [PBML] BOOK & Tutorials



   could anybody help me in finding the best book (author) for the perl
   programming language.................?

   also mention the sites where i can get tutorials and e-books for the perl
programming language..............

   iam interested in learning perl language...............

   please provide me with the details.............

   waiting for the answer..............






[Non-text portions of this message have been removed]




[Non-text portions of this message have been removed]

Hi Ashok!

On Tuesday 22 Dec 2009 06:35:33 Ashok wrote:
> could anybody help me in finding the best book (author) for the perl
> programming language.................?
>
> also mention the sites where i can get tutorials and e-books for the perl
>  programming language..............

We've concentrated resources for Perl beginners over at http://perl-begin.org/
  . There's both a http://perl-begin.org/tutorials/ page for Online Tutorials
and a http://perl-begin.org/books/ section for books as well as many other
pages.

We're now working on integrating the best stuff out of perl-begin.org into
http://learn.perl.org/ , which is a more official site and with better
prominence in most search engine searches. But this will take some work, and
for the time being, I recommend http://perl-begin.org/ .

>
>
> iam interested in learning perl language...............
>
> please provide me with the details.............
>
> waiting for the answer..............
>

Regards,

	 Shlomi Fish

--
-----------------------------------------------------------------
Shlomi Fish       http://www.shlomifish.org/
Original Riddles - http://www.shlomifish.org/puzzles/

Bzr is slower than Subversion in combination with Sourceforge.
( By: http://dazjorz.com/ )

I'm runnning Solaris 10 x86 on my home server.

I just installed 5.10.1 and set up mine and root's path to find the /opt/perl5
location of the installtion.

The README.solaris mentions the Solaris modules.

Using cpan, I tried to install the modules.  The "i /Sun::Solaris/" found
some, but not all installed.

For example, the "install Sun::Solaris::Project" failed because:

	 t/Project.t .. Can't locate Sun/Solaris/Utils.pm

So, I tried the following command: i /Solaris/

That returned 103 entries, none of which had Utils as part of the module name.

Does anyone know what the module name is that I should install?  Normally
cpan finds a dependency issue and lists that it needs such and such module.
Not this time.

Should I install all of the modules listed in the i command, or more
importantly, should I even bother installing any of the Solaris modules?

Thanks.

MB
--
e-mail: vidiot@...                                /~\ The ASCII
[I've been to Earth.  I know where it is.         ]      \ / Ribbon Campaign
[And I'm gonna take us there.    Starbuck  3/25/07]       X  Against
Visit - URL: http://vidiot.com/                          / \ HTML Email

On Saturday 26 Dec 2009 23:49:55 Mike Brown wrote:
> I'm runnning Solaris 10 x86 on my home server.
>
> I just installed 5.10.1 and set up mine and root's path to find the
>  /opt/perl5 location of the installtion.
>
> The README.solaris mentions the Solaris modules.
>
> Using cpan, I tried to install the modules.  The "i /Sun::Solaris/" found
> some, but not all installed.
>
> For example, the "install Sun::Solaris::Project" failed because:
>
>  t/Project.t .. Can't locate Sun/Solaris/Utils.pm
>
> So, I tried the following command: i /Solaris/
>
> That returned 103 entries, none of which had Utils as part of the module
>  name.
>
> Does anyone know what the module name is that I should install?  Normally
> cpan finds a dependency issue and lists that it needs such and such module.
> Not this time.
>
> Should I install all of the modules listed in the i command, or more
> importantly, should I even bother installing any of the Solaris modules?
>

From what I understand the "Solaris" modules in the CPAN are intended to make
use of the Solaris-specific APIs. Otherwise, they are not needed and you can
just the more universal and portable UNIX APIs or those of libraries above
them (e.g: gtk+).

Regards,

	 Shlomi Fish

--
-----------------------------------------------------------------
Shlomi Fish       http://www.shlomifish.org/
Freecell Solver - http://fc-solve.berlios.de/

Bzr is slower than Subversion in combination with Sourceforge.
( By: http://dazjorz.com/ )

On Sun, Dec 27, 2009 at 12:35:45AM +0200, Shlomi Fish wrote:
> From what I understand the "Solaris" modules in the CPAN are intended to make
> use of the Solaris-specific APIs. Otherwise, they are not needed and you can
> just the more universal and portable UNIX APIs or those of libraries above
> them (e.g: gtk+).

OK, thanks.  For the moment, I'll not bother, as I doubt I'll be doing anything
specific to need them.

MB
--
e-mail: vidiot@...                                /~\ The ASCII
[I've been to Earth.  I know where it is.         ]      \ / Ribbon Campaign
[And I'm gonna take us there.    Starbuck  3/25/07]       X  Against
Visit - URL: http://vidiot.com/                          / \ HTML Email

hi,

I am interested in learning perl.

Please let me know which is the best book for reference.


Thanks,
shanthala

Hi Shanthala!

Welcome aboard!

On Thursday 31 Dec 2009 15:22:20 tshanthala wrote:
> hi,
>
> I am interested in learning perl.
>
> Please let me know which is the best book for reference.
>

The canonical reference for Perl is the built-in documentation (the so-called
perldocs). You can view it on your system by typing:

<<<
perldoc perl
>>>

See:

<<<
perldoc perldoc
>>>

for instructions. You can also view the perldocs online on:

http://perldoc.perl.org/

Another reference book that only covers perl-5.6.x (there's already
perl-5.10.x and perl-5.12.x should be out soon) is "Programming Perl, 3rd
Edition". See here for details:

http://perl-begin.org/core-doc/

For more information about learning Perl see:

http://perl-begin.org/

Regards,

	 Shlomi Fish

--
-----------------------------------------------------------------
Shlomi Fish       http://www.shlomifish.org/
What does "Zionism" mean? - http://shlom.in/def-zionism

Bzr is slower than Subversion in combination with Sourceforge.
( By: http://dazjorz.com/ )

please to click this site

www.flazx.com


salam
Abdul Syukur

On Thu, Dec 31, 2009 at 8:22 PM, tshanthala <tshanthala@...> wrote:

>
>
> hi,
>
> I am interested in learning perl.
>
> Please let me know which is the best book for reference.
>
> Thanks,
> shanthala
>
>
>


[Non-text portions of this message have been removed]

>>>>> "riam" == riam budhi <riamwisnu@...> writes:

riam> please to click this site
riam> [redacted]

Thank you for offending me in the biggest way you could possibly do,
by linking to *pirated* copies of my books.

You take money directly from my pocket, and yet you pretend you're not a
thief.

Sir, you are a thief.

--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@...> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion

All of the O'Reilly books are good...
Sent from my BlackBerry Smartphone provided by Alltel

-----Original Message-----
From: "tshanthala" <tshanthala@...>
Date: Thu, 31 Dec 2009 13:22:20
To: <perl-beginner@yahoogroups.com>
Subject: [PBML] Perl  Book  For  Reference

hi,

I am interested in learning perl.

Please let me know which is the best book for reference.


Thanks,
shanthala




[Non-text portions of this message have been removed]

Hi perl-beginners,

I'm compiling Perl 5.10.1 on cygwin 1.7.1 . I know there is the precompiled one
availiable for Cygwin, but it was not compiled with the flags I needed.

The problem is at the testing stage. It's not exactly failing. On the test
ext/threads-shared/t/stress.t, it just does not do anything, it just hangs.

In the INSTALL file under timing problems, it mentions that the test may fail.
But does hanging count as failing?

I remember compiling 5.10.1 sucessfully on Cygwin 1.6.5 after several attempts.
Then I had problems ext/Time-HiRes/t/HiRes.t, one of the tests you may fail if
you again have timing problems. But at that time I was actually failing the test
and it was not hanging.

My computer is not top notch, but it's not too slow. It's a 3GHz PC running XP
SP3 and I keep it really lean.

Regards,

Richard

Hi friends,

Hopeeveryone is doing good.

1.I have an excel sheet in 2003 with columns like below

  A Yes
  B No
  C Yes
  D Yes

2.I have a file "sample.txt" which contains all the leters like below

A
B
C
D

Now,I my objective is to write a perl script to output only the letters that are
listed as "Yes" in my excel sheet.Can some pls help to give me a starting point?

Thanks

>>>>> "GoPi" == GoPi  <gopichand84@...> writes:

GoPi> 1.I have an excel sheet in 2003 with columns like below

GoPi>  A Yes
GoPi>  B No
GoPi>  C Yes
GoPi>  D Yes

GoPi> 2.I have a file "sample.txt" which contains all the leters like below

GoPi> A
GoPi> B
GoPi> C
GoPi> D

GoPi> Now,I my objective is to write a perl script to output only the letters
GoPi> that are listed as "Yes" in my excel sheet.Can some pls help to give me
GoPi> a starting point?

How much of the documentation for Spreadsheet::ParseExcel have you read and
understood?  Do you have specific questions about that module?

--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@...> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion

I would begin by saving the excel file in a plain text format. Tab-
delimited would likely work well, if this is a complete description of
the doc (if there aren't any tabs or anything).

Then I would read the file in line by line and use split to get the
two columns (these are 2 columns right?) into separate fields. Use
regex or string comparison (eq) to see if the second field is yes, and
if it is, print the first field.

There are no doubt more robust solutions, but something along these
lines ought to get you started if it's just a quickie.

Good luck.

On Jan  25, 2010, at 8:39 PM, "GoPi" <gopichand84@...> wrote:

> Hi friends,
>
> Hopeeveryone is doing good.
>
> 1.I have an excel sheet in 2003 with columns like below
>
> A Yes
> B No
> C Yes
> D Yes
>
> 2.I have a file "sample.txt" which contains all the leters like below
>
> A
> B
> C
> D
>
> Now,I my objective is to write a perl script to output only the
> letters that are listed as "Yes" in my excel sheet.Can some pls help
> to give me a starting point?
>
> Thanks
>
>


[Non-text portions of this message have been removed]

Hi Merlyn ,

Thanks for the reply.I havent' read that documentation but I started of with a
sample pl script I got over the internet but I am getting the following message
while running the script
What am I missing?

Can't locate Spreadsheet/Read.pm in @INC (@INC contains: C \Program
Files\ActiveState Perl Dev Kit 6.0\lib\
/usr/lib/perl5/5.8.5/cygwin-thread-multi-64int /usr/lib/perl5/5.8.5
/usr/lib/perl5/site_perl/5.8.5/cygwin-thread-multi-64int
/usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.5/cygwin-thread-multi-64int
/usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl .) at sample.pl line
4.


--- On Mon, 1/25/10, merlyn@... <merlyn@...> wrote:

From: merlyn@... <merlyn@...>
Subject: Re: [PBML] Perl script to read
To: "GoPi" <gopichand84@...>
Cc: perl-beginner@yahoogroups.com
Date: Monday, January 25, 2010, 5:56 PM







 









       >>>>> "GoPi" == GoPi  <gopichand84@ yahoo.com> writes:



GoPi> 1.I have an excel sheet in 2003 with columns like below



GoPi>  A Yes

GoPi>  B No

GoPi>  C Yes

GoPi>  D Yes



GoPi> 2.I have a file "sample.txt" which contains all the leters like below



GoPi> A

GoPi> B

GoPi> C

GoPi> D



GoPi> Now,I my objective is to write a perl script to output only the letters

GoPi> that are listed as "Yes" in my excel sheet.Can some pls help to give me

GoPi> a starting point?



How much of the documentation for Spreadsheet: :ParseExcel have you read and

understood?  Do you have specific questions about that module?



--

Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095

<merlyn@stonehenge. com> <URL:http://www.stonehen ge.com/merlyn/>

Smalltalk/Perl/ Unix consulting, Technical writing, Comedy, etc. etc.

See http://methodsandme ssages.vox. com/ for Smalltalk and Seaside discussion























[Non-text portions of this message have been removed]

>>>>> "gopi" == gopi chand <gopichand84@...> writes:

gopi> What am I missing?

Looks like you're missing Spreadsheet::Read.

--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@...> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion

Thanks for the reply Jeff.

I don't want to print all the letters in the first column which have an "yes" in
second column,I only want to print the ones in sample.txt file,how are we taking
care of this condition?


--- On Mon, 1/25/10, Jeff Soules <soules@...> wrote:

From: Jeff Soules <soules@...>
Subject: Re: [PBML] Perl script to read
To: "perl-beginner@yahoogroups.com" <perl-beginner@yahoogroups.com>
Date: Monday, January 25, 2010, 6:01 PM







 









       I would begin by saving the excel file in a plain text format. Tab-

delimited would likely work well, if this is a complete description of

the doc (if there aren't any tabs or anything).



Then I would read the file in line by line and use split to get the

two columns (these are 2 columns right?) into separate fields. Use

regex or string comparison (eq) to see if the second field is yes, and

if it is, print the first field.



There are no doubt more robust solutions, but something along these

lines ought to get you started if it's just a quickie.



Good luck.



On Jan  25, 2010, at 8:39 PM, "GoPi" <gopichand84@ yahoo.com> wrote:



> Hi friends,

>

> Hopeeveryone is doing good.

>

> 1.I have an excel sheet in 2003 with columns like below

>

> A Yes

> B No

> C Yes

> D Yes

>

> 2.I have a file "sample.txt" which contains all the leters like below

>

> A

> B

> C

> D

>

> Now,I my objective is to write a perl script to output only the

> letters that are listed as "Yes" in my excel sheet.Can some pls help

> to give me a starting point?

>

> Thanks

>

>



[Non-text portions of this message have been removed]

























[Non-text portions of this message have been removed]

How do I install it?




--- On Mon, 1/25/10, merlyn@... <merlyn@...> wrote:

From: merlyn@... <merlyn@...>
Subject: Re: [PBML] Perl script to read
To: "gopi chand" <gopichand84@...>
Cc: perl-beginner@yahoogroups.com
Date: Monday, January 25, 2010, 6:22 PM







 









       >>>>> "gopi" == gopi chand <gopichand84@ yahoo.com> writes:



gopi> What am I missing?



Looks like you're missing Spreadsheet: :Read.



--

Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095

<merlyn@stonehenge. com> <URL:http://www.stonehen ge.com/merlyn/>

Smalltalk/Perl/ Unix consulting, Technical writing, Comedy, etc. etc.

See http://methodsandme ssages.vox. com/ for Smalltalk and Seaside discussion























[Non-text portions of this message have been removed]

>>>>> "Jeff" == Jeff Soules <soules@...> writes:

Jeff> I would begin by saving the excel file in a plain text format.

No, Perl can read native Excel sheets just fine, thanks to the nice libraries
in the CPAN.

--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@...> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion

>>>>> "gopi" == gopi chand <gopichand84@...> writes:

gopi> How do I install it?

"perldoc perlmodinstall"

--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@...> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion

I am getting the same error message even after running perldoc perlmodinstall

Will the above command install the required mods are do I have read something
and install some other commands?Pls let me know



--- On Mon, 1/25/10, merlyn@... <merlyn@...> wrote:

From: merlyn@... <merlyn@...>
Subject: Re: [PBML] Perl script to read
To: "gopi chand" <gopichand84@...>
Cc: perl-beginner@yahoogroups.com
Date: Monday, January 25, 2010, 6:28 PM







 









       >>>>> "gopi" == gopi chand <gopichand84@ yahoo.com> writes:



gopi> How do I install it?



"perldoc perlmodinstall"



--

Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095

<merlyn@stonehenge. com> <URL:http://www.stonehen ge.com/merlyn/>

Smalltalk/Perl/ Unix consulting, Technical writing, Comedy, etc. etc.

See http://methodsandme ssages.vox. com/ for Smalltalk and Seaside discussion























[Non-text portions of this message have been removed]