Perl threads
Hello, We are in the process of writing a perl program that can send network traffic on the native pc network port. Essentially, the perl program emulates as if different traffic type sources are sending the traffic data. For this, our plan is to have a independent thread to emulate each traffic type (e.g. slow/small traffic, small/fast traffic, large/infrequent traffic etc.) So, a mail program would spawn multiple threads and these threads would send events back to main thread. The main thread would then send traffic depending on the type of event it receives. Can someone let me know what perl constructs to use for implementing this program. This is our first time with perl threads. Thanks ...
Re: dereferencing hash arrays
wow!
My impending question about usage of -> also got answered ...
On Thu, Aug 19, 2010 at 5:59 PM, Chas. Owens wrote:
> On Thu, Aug 19, 2010 at 07:51, Sharan Basappa
> wrote:
>> Hello,
>>
>> Assuming I have reference to an hash array $rHash, what would be the
>> way to dereference it.
>> Would it be: %hashEntry = %{$rHash}; ?
> snip
>
> The ways to dereference a hash are
>
> # treat $ref as a hash variable
> %$ref
>
> # treat $ref as a hash variable, useful for when the reference is not
> a simple scalar
> %{$ref}
>
> #index into $ref
> $ref->{key}
>
> # bulkier way of indexing into $ref, the -> operator is preferred
> ${$ref}{key}
>
> # take a slice of $ref
> @{$ref}{qw/k1 k2 k3/}
>
> --
> Chas. Owens
> wonkden.net
> The most important skill a programmer can have is the ability to read.
>
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
dereferencing hash arrays
Hello,
Assuming I have reference to an hash array $rHash, what would be the
way to dereference it.
Would it be: %hashEntry = %{$rHash}; ?
Regards,
Sharan
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
Re: add newline
Thanks a lot, Rob ...
On Tue, Aug 3, 2010 at 4:13 PM, Rob Coops wrote:
>
>
> On Tue, Aug 3, 2010 at 12:26 PM, Sharan Basappa
> wrote:
>>
>> In my program, I am building a text file f that also contains newlines
>> irst into an array.
>> I push every line to the array, but how do I add new lines to this text?
>>
>> Regards,
>> Sharan
>>
>> --
>> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
>> For additional commands, e-mail: beginners-h...@perl.org
>> http://learn.perl.org/
>>
>>
>
> Hi Sharan,
> There are several options (it is perl after all :-)
> First you could when you are adding a value to the array also add the
> newline character:
> push (@myarray, $value . "\n");
> Second you could of course add the line feeds as seperate array values:
> push (@myarray, $value);
> push (@myarray, "\n");
> Third you could of course when you are printing the values from the array
> add the linefeeds:
> print join("\n", @myarray);
> or
> foreach my $value ( @myarray ) {
> print $value . "\n";
> or
> print $value;
> print "\n";
> }
> There are a few more options but these are the most common once you will see
> around the perl world. It really depends on what you want to do with you
> array. If you only use the array to print the output I would advise using
> the join option as that is certainly the most efficient memory wise and at
> least feeling wise the fastest way of working (though I have not verified
> this) the second option is just silly and likely quite slow and memory
> inefficient.
> If you are using the array as a form of log file you might want to have a
> look at log4perl on cpan. Which is a much more industrial strength solution
> then reinventing the wheel is likely to be.
> Regards,
> Rob
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
add newline
In my program, I am building a text file f that also contains newlines irst into an array. I push every line to the array, but how do I add new lines to this text? Regards, Sharan -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: has and non unique keys
Shlomi, I am not trying to be critical of perl or anything (if that is what you felt). I am only trying to see if a certain feature exists or not. The current problem I am working on has duplicate key values and hence the question. The STL multipmap library explanation is below: http://www.cplusplus.com/reference/stl/multimap/ Regards, Sharan On Mon, Aug 2, 2010 at 4:18 PM, Shlomi Fish wrote: > Hi Sharan, > > On Monday 02 August 2010 13:13:19 Sharan Basappa wrote: >> Hello Uri, >> >> Thanks for the explanation. I figured this out once I ran the code >> where I got this doubt. >> The reason why I raised this question is that languages like C++ do >> allow hashes arrays > > Please don't call hashes "hashes arrays". They are either "hashes" or > "associative arrays". (Technically, hashes are the name of the implementation > rather than the Abstract Data Type of a Dictionary that matches keys to values > , but we call that in Perl because it's a short and convenient word). > >> that can have different values but same key. Thats the reason for the >> second part of my >> question. > > Are you talking about the C Standard Template Library (STL)? How does what you > are referring to allow multiple values for the same key? I should note that if > you wish to do something like that in Perl, you can have the key point to a > value that is an array reference, a hash reference or a different data > structure. > > Regards, > > Shlomi Fish > > -- > - > Shlomi Fish http://www.shlomifish.org/ > Stop Using MSIE - http://www.shlomifish.org/no-ie/ > > God considered inflicting XSLT as the tenth plague of Egypt, but then > decided against it because he thought it would be too evil. > > Please reply to list if it's a mailing list post - http://shlom.in/reply . > -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: has and non unique keys
Hello Uri, Thanks for the explanation. I figured this out once I ran the code where I got this doubt. The reason why I raised this question is that languages like C++ do allow hashes arrays that can have different values but same key. Thats the reason for the second part of my question. Regards, Sharan On Mon, Aug 2, 2010 at 3:36 PM, Uri Guttman wrote: >>>>>> "SB" == Sharan Basappa writes: > > SB> Is there any restriction that the keys in perl should be unique? > SB> If not, are there any special considerations that need to be kept > SB> in mind while accessing the elements? > > well, think about it first. what would happen if a hash allowed > duplicate keys? how would you know which associated value was attached > to the duplicate key? the whole point of hashes is to index by a > string. requiring unique keys is what makes it a hash. in a similar vein > what would happen if you could index an array multiple times with the > same integer? it makes no sense. same for hashes. > > uri > > -- > Uri Guttman -- ...@stemsystems.com http://www.sysarch.com -- > - Perl Code Review , Architecture, Development, Training, Support -- > - Gourmet Hot Cocoa Mix http://bestfriendscocoa.com - > -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
has and non unique keys
Folks, Is there any restriction that the keys in perl should be unique? If not, are there any special considerations that need to be kept in mind while accessing the elements? Regards, Sharan -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: hash arrays
Thank you, Bob & others. I think I now understand better. I have the
source code. So now I should be able to figure this out.
Regards,
Sharan
On Mon, Jul 26, 2010 at 6:00 PM, Rob Coops wrote:
>
>
> On Mon, Jul 26, 2010 at 2:09 PM, Sharan Basappa
> wrote:
>>
>> Folks,
>>
>> I am reusing a code for some enhancements. According to my
>> understanding, it is a record with
>> some unique string as key and then hash array as the value.
>>
>> I iterate through the array and print as follows:
>>
>> foreach my $key (keys %{$abc})
>> {
>> print "$key ${$abc}{$key} \n";
>> }
>>
>> I get values such like:
>> val_0001 HASH(0x186c0060)
>> val_0002 HASH(0x187ea490)
>> val_0003 HASH(0x18655bc0)
>> val_0004 HASH(0x1880fc60)
>>
>> Can someone tell me how to get the actual value instead of HASH* as above?
>>
>> Regards,
>> Sharan
>>
>> --
>> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
>> For additional commands, e-mail: beginners-h...@perl.org
>> http://learn.perl.org/
>>
>>
>
> Hi Sharan,
> When you do: print "$key ${$abc}{$key} you get this output: val_0001
> HASH(0x186c0060) so that basically means that the value associated with:
> val_0001 is a hash.
> So if we do something along the lines of:
> foreach my $key (keys %{$abc})
> {
> my %hash = %{$abc}{$key};
> foreach my $key2 ( keys %value ) {
> print "$key\t$key2\t$value{$key2}\n";
> }
> }
> You should get something like this:
> val_0001 key_0001 value_0001
> val_0001 key_0002 value_0002
> val_0001 key_0003 value_0003
> val_0002 key_0001 value_0001
> etc
> Of course you should decide if this is really needed if you are only
> interested in finding out what is inside $abc for debugging purposes for
> instance you might just want to make your life easy and simply use
> Data::Dumper to push content to the screen.
> For all you know that HASH(0x186c0060) might contain a value that is it self
> an array which contains a list of hashes with arrays as values etc... for
> just seeing what is in there it is often better to simply use Data::Dumper
> as it has been written to deal with all those possibilities so you don't
> have to worry about them.
> Regards,
> Rob
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
hash arrays
Folks,
I am reusing a code for some enhancements. According to my
understanding, it is a record with
some unique string as key and then hash array as the value.
I iterate through the array and print as follows:
foreach my $key (keys %{$abc})
{
print "$key ${$abc}{$key} \n";
}
I get values such like:
val_0001 HASH(0x186c0060)
val_0002 HASH(0x187ea490)
val_0003 HASH(0x18655bc0)
val_0004 HASH(0x1880fc60)
Can someone tell me how to get the actual value instead of HASH* as above?
Regards,
Sharan
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
array to hash array
Hi,
Can someone tell me how to convert an array to hash.
Each array entry has a row of values
e.g. a(0) = ab cd ef; a(1) = mn de fg
The hash array needs to be constructed with one of the element in the
array row as the key.
e.g. hash{ab} = cd ef - ab is a string in the array row
hash{mn} = de fg- mn is a string in the array row
Can someone comment?
Regards,
Sharan
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
Re: need explanation
Thanks, Vishal.
I was confused with usage {}. So you are saying that it will
dereference the array.
Isn't @$tableRef not enough in that case?
Regards,
Sharan
On Fri, Jul 16, 2010 at 3:33 PM, Vishal Gupta
wrote:
> Hi Sharan,
>
> Please find below the answers:
>
> 1) what does @{$tableRef} really do?
>
> This will de-reference the "$tableRef", which is suppose to be an array
> reference.
>
> 2) what does @table contain?
>
> @table will contains the original array, which is referenced by "$tableRef".
>
> Regards,
> Vishal
>
> Manage your finance and manage money through MSN Money Special Drag n' drop
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
need explanation
Folks,
I am putting a line of code which I am not able to clearly understand.
This is a reuse ...
my(@table) = @{$tableRef};
The tableRef is returned as a reference after reading a file that
contains record.
Two questions:
1) what does @{$tableRef} really do?
2) what does @table contain?
Regards,
Sharan
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
Re: parsing csv
Hi Alan, I am not resisting installing but I am having trouble installing Text::CSV module. I would be glad if someone helps with these errors ... perl Makefile.PL PREFIX=/home/sharan/tools/perl-install Checking if your kit is complete... Looks good Writing Makefile for Text::CSV_XS Make fails: make cp CSV_XS.pm blib/lib/Text/CSV_XS.pm /usr/bin/perl /usr/lib/perl5/5.8.8/ExtUtils/xsubpp -typemap /usr/lib/perl5/5.8.8/ExtUtils/typemap CSV_XS.xs > CSV_XS.xsc && mv CSV_XS.xsc CSV_XS.c gcc -c -D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m64 -mtune=generic -DVERSION=\"0.73\" -DXS_VERSION=\"0.73\" -fPIC "-I/usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/CORE" CSV_XS.c cc1: invalid option `tune=generic' cc1: unrecognized option `-fstack-protector' cc1: invalid parameter `ssp-buffer-size' On Fri, Jul 2, 2010 at 4:04 PM, Alan Haggai Alavi wrote: > On 2 July 2010 15:56, Sharan Basappa wrote: >> Hi Jason, >> >> Does CSV module come prebuilt so that I can avoid installing. >> I dont know SQL but my requirements are very modest. >> Extract lines and get filed and reformat them to another type. >> >> Regads, >> Sharan > > > Hi Sharan, > > DBD::CSV is not in core. You can check it yourself by using the > `corelist` command-line frontend to Module::Corelist. > > For example: > alanhag...@love:~$ corelist DBD::CSV > > DBD::CSV was not in CORE (or so I think) > > By the way, why do you resist installing modules from CPAN? > > Regards, > Alan. > -- > The difference makes the difference > -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: parsing csv
Hi Jason, Does CSV module come prebuilt so that I can avoid installing. I dont know SQL but my requirements are very modest. Extract lines and get filed and reformat them to another type. Regads, Sharan On Fri, Jul 2, 2010 at 3:53 PM, Jason Feng wrote: > Hi there, > > If you know some SQL, I'd suggest you using DBI and DBD::CSV. > > Cheers, > Jason > >> Date: Fri, 2 Jul 2010 18:47:22 +1000 >> Subject: Re: parsing csv >> From: rc...@pcug.org.au >> To: sharan.basa...@gmail.com >> CC: beginners@perl.org >> >> >> > Folks, >> > >> > I have to parse a csv file and convert it into some other format. >> > Can someone tell me what support perl has for csv parsing. >> > My requirements are very modest, so somethng simple would be >> > preferable. >> > >> > Regards, >> > Sharan >> >> >> >> >> You might want to search http://search.cpan.org/search?query=csv&mode=all >> >> http://search.cpan.org/~tmtm/Text-CSV-Simple-1.00/lib/Text/CSV/Simple.pm >> seems to be one that could suit you? >> -- >> >> >> >> Owen >> >> >> -- >> To unsubscribe, e-mail: beginners-unsubscr...@perl.org >> For additional commands, e-mail: beginners-h...@perl.org >> http://learn.perl.org/ >> >> > > > Find it at CarPoint.com.au New, Used, Demo, Dealer or Private? -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: parsing csv
Thanks a lot. I am now installing the module to try out and start implementing my own code. I think I will need help in installing the module ... This goes through fine: perl Makefile.PL Checking if your kit is complete... Looks good Writing Makefile for Text::CSV_XS Make fails: make cp CSV_XS.pm blib/lib/Text/CSV_XS.pm /usr/bin/perl /usr/lib/perl5/5.8.8/ExtUtils/xsubpp -typemap /usr/lib/perl5/5.8.8/ExtUtils/typemap CSV_XS.xs > CSV_XS.xsc && mv CSV_XS.xsc CSV_XS.c gcc -c -D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m64 -mtune=generic -DVERSION=\"0.73\" -DXS_VERSION=\"0.73\" -fPIC "-I/usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/CORE" CSV_XS.c cc1: invalid option `tune=generic' cc1: unrecognized option `-fstack-protector' cc1: invalid parameter `ssp-buffer-size' Can someone help me ... Regards, Sharan On Fri, Jul 2, 2010 at 2:35 PM, Shlomi Fish wrote: > On Friday 02 Jul 2010 11:55:47 Sharan Basappa wrote: >> On Fri, Jul 2, 2010 at 2:19 PM, Shlomi Fish wrote: >> > On Friday 02 Jul 2010 11:40:05 Sharan Basappa wrote: >> >> Folks, >> >> >> >> I have to parse a csv file and convert it into some other format. >> >> Can someone tell me what support perl has for csv parsing. >> >> My requirements are very modest, so somethng simple would be preferable. >> >> Thank you all. Can I get to see some examples. The documentation is >> very short (for a novice like me) ... > > There is an example here: > > http://search.cpan.org/perldoc?Text::CSV_XS > > There are other examples inside the Text-CSV_XS source distribution. > > Regards, > > Shlomi Fish > > -- > - > Shlomi Fish http://www.shlomifish.org/ > What Makes Software Apps High Quality - http://shlom.in/sw-quality > > God considered inflicting XSLT as the tenth plague of Egypt, but then > decided against it because he thought it would be too evil. > > Please reply to list if it's a mailing list post - http://shlom.in/reply . > -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: parsing csv
On Fri, Jul 2, 2010 at 2:19 PM, Shlomi Fish wrote: > On Friday 02 Jul 2010 11:40:05 Sharan Basappa wrote: >> Folks, >> >> I have to parse a csv file and convert it into some other format. >> Can someone tell me what support perl has for csv parsing. >> My requirements are very modest, so somethng simple would be preferable. Thank you all. Can I get to see some examples. The documentation is very short (for a novice like me) ... -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
parsing csv
Folks, I have to parse a csv file and convert it into some other format. Can someone tell me what support perl has for csv parsing. My requirements are very modest, so somethng simple would be preferable. Regards, Sharan -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: perl on windows
Actually there was no exe. I only got a zip folder and uncompressed. I am clueless what to do after that... Regards, On Tue, May 19, 2009 at 1:26 AM, Dr.Ruud wrote: > Sharan Basappa wrote: >> >> Ruud: >>> >>> Sharan: > >>>> I would like to know install perl on my windows laptop. Any >>>> suggestions on which one to use. >>> >>> Strawberry Perl http://vanillaperl.com/ >> >> I downloaded strawberry and extracted it. I dont see any install >> notes. >> Any idea how to install (is extraction all we have to do) > > So you downloaded the exe and ran it? > > -- > Ruud > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: perl on windows
I downloaded strawberry and extracted it. I dont see any install notes. Any idea how to install (is extraction all we have to do) Regards, Sharan On Sat, May 16, 2009 at 12:51 AM, Dr.Ruud wrote: > Sharan Basappa wrote: > >> I would like to know install perl on my windows laptop. Any >> suggestions on which one to use. > > Strawberry Perl http://vanillaperl.com/ > > -- > Ruud > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: perl on windows
Thanks. That answers my question... On Fri, May 15, 2009 at 8:04 PM, JeffHua wrote: > Sharan Basappa: >> >> I am not talking about text editors, but GUI IDEs that help compile, >> run, debug (probably do more I dont know) >> > > But Perl is just an old script language, many guys of here don't use an IDE. > If you really want one, the wellknown perl IDE is still activestate's, see: > > http://www.activestate.com/activeperl_pro_studio/ > > Or you may try google it for finding another. > > Jeff. > -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: perl on windows
I am not talking about text editors, but GUI IDEs that help compile, run, debug (probably do more I dont know) On Fri, May 15, 2009 at 7:52 PM, JeffHua wrote: > Sharan Basappa : >> >> Thanks a lot. Another question, does it also have an IDE kind of >> environment just to make my life easy? >> > > For activestate you may try Komodo Edit: > http://www.activestate.com/komodo_edit/ > > If under Cygwin you could use VI/VIM, which is powerful. > > >> >> On Fri, May 15, 2009 at 7:38 PM, JeffHua wrote: >>> >>> Sharan Basappa: >>>> >>>> Hi, >>>> >>>> I would like to know install perl on my windows laptop. Any >>>> suggestions on which one to use. >>>> Also, my work requires some special modules like algorithm. How do I >>>> handle that? >>>> >>> Hi, >>> >>> try ActivePerl: >>> >>> www.activestate.com/activeperl/ >>> >>> or Cygwin a Linux-like environment for Windows: >>> >>> www.cygwin.com/ >>> >> > > -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: perl on windows
Thanks a lot. Another question, does it also have an IDE kind of environment just to make my life easy? Regards On Fri, May 15, 2009 at 7:38 PM, JeffHua wrote: > Sharan Basappa: >> >> Hi, >> >> I would like to know install perl on my windows laptop. Any >> suggestions on which one to use. >> Also, my work requires some special modules like algorithm. How do I >> handle that? >> > > Hi, > > try ActivePerl: > > www.activestate.com/activeperl/ > > or Cygwin a Linux-like environment for Windows: > > www.cygwin.com/ > -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
perl on windows
Hi, I would like to know install perl on my windows laptop. Any suggestions on which one to use. Also, my work requires some special modules like algorithm. How do I handle that? Regards -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: xml parsing
On Wed, Apr 29, 2009 at 7:54 PM, Bruce Ferrell wrote: > Have a look at XML::Simple > > I'm a lousy programmer and even I can use it :) > Thanks, Bruce. My requirements are really modest, so I think this should be sufficient ... -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
xml parsing
Hi, I have a kind of user defined xml file where users enter their test information. I need to parse the xml file, get the relevant data and then use the test information to invoke low level scripts that run the tests. Is there a xml parser that can do this job? Also, I have heard a bit about xml schemas. Does the fact that I am using my own format of xml file make any difference? Regards, -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: perl
Thanks, I did go through the TK docs a little more. Here is what I understood -- at a high level -- If someone can comment on this, it would really help me TK provides options - to creates windows - to create virtual areas within this window - to create tool bar, menu etc in the window - links the user action to perl action etc. For my application, what I really need is that the tool should accept one or more log files. It should then parse log files and properly arrange the log data. It should then display the log info in the form of a waveform, where the x axis indicates the time (which comes from the log file itself) There can be multiple rows of log information (which I call as streams). The stream info also comes from the log file. Thanks in advance ... On Thu, Mar 19, 2009 at 2:50 PM, Dermot wrote: > 2009/3/19 Sharan Basappa : >> I have started going through TK documents. The initial sections seem >> to concentrate more on adding different options to screen and do some >> background action based on user input. My requirement is not so much >> on user control but more on the visual display side (pardon if I am >> using generic terms since I am not a SW guy). I just want to make sure >> I am spending time in the right area. So sending this mail. >> >> Regards, > > > If your mean the window layout then I think you want to look at the > ->pack() method. > > http://search.cpan.org/~srezic/Tk-804.028/pod/pack.pod > > > It's how you specify the placing of items within each element. > HTH, > Dp. > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: perl
I have started going through TK documents. The initial sections seem to concentrate more on adding different options to screen and do some background action based on user input. My requirement is not so much on user control but more on the visual display side (pardon if I am using generic terms since I am not a SW guy). I just want to make sure I am spending time in the right area. So sending this mail. Regards, On Tue, Mar 17, 2009 at 11:41 AM, Chas. Owens wrote: > On Tue, Mar 17, 2009 at 01:58, Sharan Basappa > wrote: >> Hi Chas, >> >> Clearly I did not communicate properly. So what I am looking is for >> some support to do some >> GUI stuff. The idea is take information from text and show it in the >> form a waveform. This >> will help a lot since it is rather difficult to go through the text file. > snip > > There are many GUI Toolkits for Perl. Which one is best for you > depends in what platform you are on. I like Gtk2[1], two others with > wide following are Tk[2] and Wx[3]. I believe all of them has some > form of canvas widget. If you want to represent data like a waveform > that would be where I would start looking. > > 1. http://search.cpan.org/dist/Gtk2/Gtk2.pm > 2. http://search.cpan.org/dist/Tk/pod/overview.pod > 3. http://search.cpan.org/dist/Wx/Wx.pm > > -- > Chas. Owens > wonkden.net > The most important skill a programmer can have is the ability to read. > -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: perl
Some user interaction is expected, at least in terms of clicking to get additional details of a log point ... But yes, since more might be required later, I would probably go with (G)TK Regards On Tue, Mar 17, 2009 at 1:47 PM, Thomas Bätzler wrote: > Sharan Basappa wrote: >> Clearly I did not communicate properly. So what I am looking is for >> some support to do some GUI stuff. The idea is take information from >> text and show it in the form a waveform. This will help a lot since >> it is rather difficult to go through the text file. > > If you don't need user interaction beyond a "next" button and don't want to > bother with a GUI toolkit, you could use Perl to convert your input data to > gnuplot plot files. > > HTH, > Thomas > -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: perl
Hi Chas, Clearly I did not communicate properly. So what I am looking is for some support to do some GUI stuff. The idea is take information from text and show it in the form a waveform. This will help a lot since it is rather difficult to go through the text file. Regards, Sharan On Mon, Mar 16, 2009 at 8:59 PM, Chas. Owens wrote: > On Mon, Mar 16, 2009 at 10:31, Sharan Basappa > wrote: >> Hi, >> >> We have quite a bit of log information generated during our work. The >> thought I have is to create a tool that actually >> takes all the info in the log and then displays in a visual manner. I >> have fair amount of experience in Perl but for an >> application of this kind, I am wondering what I need to do this. Is >> perl enough? does it require some other additional >> tool? Please provide some guidance here. > snip > > Perl should be capable of doing whatever you want. If you need to > create graphical charts you might look into Chart[1] module. > > 1. http://search.cpan.org/~chartgrp/Chart-2.4.1/Chart.pod > > -- > Chas. Owens > wonkden.net > The most important skill a programmer can have is the ability to read. > -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
perl
Hi, We have quite a bit of log information generated during our work. The thought I have is to create a tool that actually takes all the info in the log and then displays in a visual manner. I have fair amount of experience in Perl but for an application of this kind, I am wondering what I need to do this. Is perl enough? does it require some other additional tool? Please provide some guidance here. Regards, -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: removing an arbitrary element from array
Thank you ... -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: removing an arbitrary element from array
On Sun, Dec 7, 2008 at 2:01 AM, Rob Dixon wrote:
> Sharan Basappa wrote:
>>
>> I was wondering if there is a quick way to remove an arbitrary element
>> from an array.
>> I have an array which stores _ delimited strings a_b_c_1). The last
>> string stores the rank of the string.
>> I have to remove a string from array that has the lowest number.
>>
>> e.g. a_b_c_1, a_b_c_2. In this case, a_b_c_2 should be removed. The
>> strings are not arranged in any
>> specific order in the array.
>
> I'm hoping you've made a mistake, because if I understand you correctly then
> out
> of ('a_b_c_1', 'a_b_c_2') the first should be removed because 1 is less than
> two.
>
> If I'm right then the program below should be useful.
>
> HTH,
>
> Rob
>
>
>
> use strict;
> use warnings;
>
> my @data = qw/
> a_b_c_99
> a_b_c_6
> a_b_c_1
> a_b_c_2
> a_b_c_22
> /;
>
> my ($idx, $min_seq);
> foreach (0 .. $#data) {
> my ($seq) = $data[$_] =~ /(\d+)$/;
> next if defined $idx and $seq > $min_seq;
> ($idx, $min_seq) = ($_, $seq);
> }
>
> splice @data, $idx, 1;
>
Hi Rob,
I have a question on this. I realized that I also need to save the
element that I am removing from
the array. Would this code work (should remove the element and save it
in the variable)
$removed_element = splice @data, $idx, 1
Regards
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
launch process
Hi, What is the method to launch unix process from perl. I believe this is going to be system call. The additional requirement I have is that the calls should be non blocking mainly as these process execution should happen in parallel. Regards, Sharan -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: implementing algo
Hi Jenda, Rob, Shawn,
I am attaching a sample flowchart figure.
Step1 and Step2 are the process steps and D1 and D2 are the decisions.
Will this code translate to the foll in perl?
do
{
do
{
step1
} while (D1)
step2
} while (D2)
What if D2 traces back to Step2 instead? How would the code change?
Regards
<>--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
implementing algo
Hi, I am implementing an algorithm that I have worked out in theory. The algorithm is in the form of a flowchart. The area where I am having problem is where the flow passes from a lower decision block to higher one. I can implement this using a do while block for such flow. The issue is when multiple such decisions block go back to same point in the flowchart. When I look at the flowchart, it looks like it can be simply translated into code using jump blocks if a language supports it. The other question I have is if my approach of using a flowchart was incorrect in the first place. But I did flowchart to get my idea straight and uncovered lot of potential issues during this exercise. Regards -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: removing an arbitrary element from array
On Sun, Dec 7, 2008 at 2:01 AM, Rob Dixon <[EMAIL PROTECTED]> wrote:
> Sharan Basappa wrote:
>>
>> I was wondering if there is a quick way to remove an arbitrary element
>> from an array.
>> I have an array which stores _ delimited strings a_b_c_1). The last
>> string stores the rank of the string.
>> I have to remove a string from array that has the lowest number.
>>
>> e.g. a_b_c_1, a_b_c_2. In this case, a_b_c_2 should be removed. The
>> strings are not arranged in any
>> specific order in the array.
>
> I'm hoping you've made a mistake, because if I understand you correctly then
> out
> of ('a_b_c_1', 'a_b_c_2') the first should be removed because 1 is less than
> two.
>
> If I'm right then the program below should be useful.
>
> HTH,
>
> Rob
>
>
>
> use strict;
> use warnings;
>
> my @data = qw/
> a_b_c_99
> a_b_c_6
> a_b_c_1
> a_b_c_2
> a_b_c_22
> /;
>
> my ($idx, $min_seq);
> foreach (0 .. $#data) {
> my ($seq) = $data[$_] =~ /(\d+)$/;
> next if defined $idx and $seq > $min_seq;
> ($idx, $min_seq) = ($_, $seq);
> }
>
> splice @data, $idx, 1;
>
You are right, the lowest ranked string should be knocked off.
I tried your code and it works perfectly. I have integrated that with
my real code.
Thanks a lot.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
removing an arbitrary element from array
Hi, I was wondering if there is a quick way to remove an arbitrary element from an array. I have an array which stores _ delimited strings a_b_c_1). The last string stores the rank of the string. I have to remove a string from array that has the lowest number. e.g. a_b_c_1, a_b_c_2. In this case, a_b_c_2 should be removed. The strings are not arranged in any specific order in the array. Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: system command
> Or you might want to use threads, though they are certainly not the same > both have their advantages and you might want to read up on them before > making a decission on which to use. > > In any case I would advise you to first, use which ever way of modeling you > prefer, to draw out the way the system works and to identify exactly which > processes depend on which other processes. Due to the way OS's handle > multiple seperate processes paying special attention to how the seperate > independent parts run and how that might affect the main program or other > independent parts becomes quite important. You need to count on some > processes failing, not finshing as fast as you would normally expect because > there are now more processes running at the same time and things like file > locking if the independent parts are operating on the same files... all in > all making a quick drawing even of a very simple program can prevent a lot > of trouble later on. Thank you Rob. The good thing is that these process I am trying to launch are not dependant on each other. In fact, they are actually same process with different parameters. I just need to launch them based on some algo and user constraints. Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
system command
Hi, I am trying to launch a program using system command. The program usually takes 20-30 minutes to complete. I launch the programs in a loop. Will the system command wait for first program to complete and then proceed to the next one. What if I want to launch these programs in parallel which is not possible if system command waits for the first program to complete before proceeding to next one. Regards, -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
wait for file creation and wait
Hi, I am writing a scheduler for some proprietary task. There are two questions pertaining to this 1) I have to wait for creation of a file by some external process. How do I do that in perl? In other words, is it possible to list out the files in perl? 2) If file is not created then I have to wait for sometime. How do I put real time delay in perl? Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
random
Hi, Would like to know if perl has native (without using special modules) for generating random numbers? Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: algorithm permute
Tom & Jay, Thanks a lot. Actually the user is same. I have confirmed again. I know it irritates a lot when a help seeker posts incorrect data and requests support. But in this case, the user is same. I have not gone deep into the issue. But the distinct difference is that in the terminal where it works, I have not sourced scripts that I usually do for my day to day work (paths to tools etc. Some tools use perl) Needless to say, on the terminal where it works, the scripts are not sourced. I did try to echo PERL5LIB and see if that is the source of confusion, but it is undefined in all the terminals. perldoc -l Algorithm::Permute yields No documentation found for "Algorithm::Permute". Anyway, now I know how to make it work consistently. My initial hunch was that something to do with a variable that was set on the shell prompt and hence got lost for some reason later. Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: algorithm permute
> > You haven't installed anything. You've downloaded and untarred/ > gunzipped the source. You still have to run > perl Makefile.PL > make > make test > make install > > That final command will copy the installed module to the real library > directory. THAT is the path that you need for use lib. > > perldoc perlmod > for more information > > Paul Lalli I would like to rewind a bit and see why this could be happening. I am really curious about this. As I mentioned in my original mail, a working file stopped all of a sudden. Now I have 3 terminals open. All 3 are on same machine .. I have done uname -a to confirm this. In 2 terminals, the script errors out with: perl StTrAuto.pl Can't locate Algorithm/Permute.pm in @INC (@INC contains: /u/basappas/local/perl/perm_install/lib/perl5/site_perl /hwnet/activestate/perl-5.6/lib/5.6.1/i686-linux-thread-multi /hwnet/activestate/perl-5.6/lib/5.6.1 /hwnet/activestate/perl-5.6/lib/site_perl/5.6.1/i686-linux-thread-multi /hwnet/activestate/perl-5.6/lib/site_perl/5.6.1 /hwnet/activestate/perl-5.6/lib/site_perl .) at StTrAuto.pl line 5. BEGIN failed--compilation aborted at StTrAuto.pl line 5. On the 3 rd terminal, it works fine. The machine is same, the script is same. I ran "env" and redirected output to a file from 2 terminals. There are lot of differences. By now, I am pretty sure this is the cause for the script failing. But there are so many differences I am not able to make out what variable is causing script to konk. Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: algorithm permute
Just an update. I have installed to a new location and can see the following files /u/basappas/local/perl/Algorithm-Permute-0.06/ Algorithm Changes Makefile.PL Perm2.plPermute.o pm_to_blib typemap bench lib MANIFEST Permute.bs Permute.pm share blib Makefile META.yml Permute.c Permute.xs test.pl I put this path in my code use lib "/u/basappas/local/perl/Algorithm-Permute-0.06" and still see the error: Can't locate loadable object for module Algorithm::Permute in @INC (@INC contains: /u/basappas/local/perl/Algorithm-Permute-0.06 /hwnet/activestate/perl-5.6/lib/5.6.1/i686-linux-thread-multi /hwnet/activestate/perl-5.6/lib/5.6.1 /hwnet/activestate/perl-5.6/lib/site_perl/5.6.1/i686-linux-thread-multi /hwnet/activestate/perl-5.6/lib/site_perl/5.6.1 /hwnet/activestate/perl-5.6/lib/site_perl .) at Perm2.pl line 4 Compilation failed in require at Perm2.pl line 4. BEGIN failed--compilation aborted at Perm2.pl line 4 Am I missing something really? (like setting path to perl_lib) Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: insert keyword
>> Hi,
>>
>> I have a string that has value delimited by space
>> e.g. 1 2 10 8 etc.
>>
>> I need to add a keyword wherever there is a space.
>> I wrote a small code to try this out:
>>
>> $str = "one two three";
>> $str =~ s/\s/x /g;
>>
>> In this case, I am trying to insert x where there is a space. one two
>> three should
>> become one x two x three.
>> But the above example results in:
>> nex twox three (chops off leading o char)
>>
>> The interesting this is that this happens only in debug mode.
>> The regular output is: onex twox three
>
> I don't know what you call "debug mode", so I can't tell you why you
> lose your leading character, but, I can tell you that the substitution
> is doing exactly what you have told it to. You are telling it to
> replace any white space (not just spaces) characters with "x ". If
> you want to retain the original character you need to say something
> like
>
> $str =~ s/(\s)/${1}x /g;
>
> But you probably really want to say
>
> $str =~ s/ / x /g;
>
> because \s will match all white space characters (i.e. tab, line feed,
> form feed, carriage return, space, "\x{85}", "\x{2028}, and
> "\x{2029}").
>
I am sorry, I was looking at incorrect output.
But yes, it works in both the cases (with perl and perl -d option)
Regards
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Re: algorithm permute
Hi Paul,
Regards
On Mon, Nov 10, 2008 at 11:06 PM, Paul Lalli <[EMAIL PROTECTED]> wrote:
> On Nov 10, 9:15 am, [EMAIL PROTECTED] (Sharan Basappa) wrote:
>> Hi,
>>
>> After working fine with Algorithm::Permute module for weeks now,
>> suddenly I seem to be getting errors.
>>
>> The particular error is:
>> $ perl StTrAuto.pl
>> Can't locate Algorithm/Permute.pm in @INC (@INC contains:
>> /u/sharan/local/perl/perm_install/lib/perl5/site_perl .) at
>> StTrAuto.pl line 4.
>> BEGIN failed--compilation aborted at StTrAuto.pl line 4.
>>
>> First few lines of code which I thought are causing the issue:
>> 1 #!/usr/bin/perl
>> 2 use warnings;
>> 3 use lib "/u/sharan/local/perl/perm_install/lib/perl5/site_perl";
>> 4 use Algorithm::Permute;
>>
>> The interesting thing is that I have an example code elsewhere and
>> that works fine.
>> Again, the first few lines of code from example:
>>
>> #!/usr/bin/perl
>> use warnings;
>> use lib
>> "/u/sharan/local/perl/perm_install/lib/perl5/site_perl";
>> use Algorithm::Permute;
>>
>> my @array = (1..4);
>> Algorithm::Permute::permute { print "@array\n" } @array;
>> [EMAIL PROTECTED] = Algorithm::Permute::permute (@array);
>>
>> Any clues"
>
>
> "elsewhere" is the problem. Algorithm::Permute is not a built-in
> module. You have to install it manually via the CPAN on every machine
> you want to use it. Whatever machine you're currently using, you
> haven't installed it - or at the very least, you haven't installed it
> to "/u/sharan/local/perl/perm_install/lib/perl5/site_perl". Try
> running
> find / -name Permute.pm 2> /dev/null
> to see where, if at all, the module is located on this system.
Hi Paul,
Its the same machine. The only difference is that the directory from
where I run my actual code
is different from the example code. I tried it again to make sure this
is the case.
When I put a find after the path I have included in use lib, I get the
following result:
./5.8.5/i386-linux-thread-multi/Algorithm/Permute.pm
./5.8.5/i386-linux-thread-multi/perl5/site_perl/5.8.5/i386-linux-thread-multi/Algorithm/Permute.pm
./5.8.5/i386-linux-thread-multi/perl5/site_perl/5.8.5/i386-linux-thread-multi/perl5/site_perl/5.8.5
/i386-linux-thread-multi/Algorithm/Permute.pm
./5.8.5/i386-linux-thread-multi/perl5/site_perl/5.8.5/i386-linux-thread-multi/perl5/site_perl/5.8.5
/i386-linux-thread-multi/perl5/site_perl/5.8.5/i386-linux-thread-multi/Algorithm/Permute.pm
./5.8.5/i386-linux-thread-multi/perl5/site_perl/5.8.5/i386-linux-thread-multi/perl5/site_perl/5.8.5
/i386-linux-thread-multi/perl5/site_perl/5.8.5/i386-linux-thread-multi/perl5/site_perl/5.8.5/i386-l
inux-thread-multi/Algorithm/Permute.pm
Ok, let me try installing fresh once again and see if that helps ...
Regards
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
insert keyword
Hi, I have a string that has value delimited by space e.g. 1 2 10 8 etc. I need to add a keyword wherever there is a space. I wrote a small code to try this out: $str = "one two three"; $str =~ s/\s/x /g; In this case, I am trying to insert x where there is a space. one two three should become one x two x three. But the above example results in: nex twox three (chops off leading o char) The interesting this is that this happens only in debug mode. The regular output is: onex twox three Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
algorithm permute
Hi,
After working fine with Algorithm::Permute module for weeks now,
suddenly I seem to be getting errors.
The particular error is:
$ perl StTrAuto.pl
Can't locate Algorithm/Permute.pm in @INC (@INC contains:
/u/sharan/local/perl/perm_install/lib/perl5/site_perl .) at
StTrAuto.pl line 4.
BEGIN failed--compilation aborted at StTrAuto.pl line 4.
First few lines of code which I thought are causing the issue:
1 #!/usr/bin/perl
2 use warnings;
3 use lib "/u/sharan/local/perl/perm_install/lib/perl5/site_perl";
4 use Algorithm::Permute;
The interesting thing is that I have an example code elsewhere and
that works fine.
Again, the first few lines of code from example:
#!/usr/bin/perl
use warnings;
use lib
"/u/sharan/local/perl/perm_install/lib/perl5/site_perl";
use Algorithm::Permute;
my @array = (1..4);
Algorithm::Permute::permute { print "@array\n" } @array;
[EMAIL PROTECTED] = Algorithm::Permute::permute (@array);
Any clues"
Regards
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Re: substitute multiple spaces with just one
> You are completely right. :-)
>
> What you want to be doing is this: $temp =~ s/\s+/ /g;
> The reason for that is simple, \s is used to match a space or multiple
> spaces, it is not used to print a space that is actually done by the ' '
> (space). It might seem a little strange at first but just try and think of
> how you would read something like s/ {10}/../g; that would make no
> sense at all and you would have to go count the number of spaces so when
> matchin you use \s to represend a space, but when printing or substituting
> you simple use the ' ' (space).
Thanks. BTW, a variable ($x = " ") instead of actual space would do, right?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
substitute multiple spaces with just one
Hi, I have string that has one or more spaces. I would like to replace them with a single space. The simple code below replaces the spaces fine, but does not substitute with a space. $temp = "0 1 2 34"; <-> version 1 $temp =~ s/\s+/\s/g; $temp = "0 1 2 34"; <-> version 2 $temp =~ s/\s+/s/g; They both end up actually substituting spaces with string s Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: debugger exiting
> My final comment is that $temp is an awful name for a variable under almost > any > circumstances. > I do agree. More often than not, if I dont have a meaningful name for a variable it is mainly because the problem and solution are not worked out clearly in mind. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
debugger exiting
Hi,
I am using debugging for a program of mine.
The debugger exits probably after a regex match fail. I am not sure
why it should exit.
Any ideas, clues?
Regards
main::(StTrAuto.pl:106): my @new_auto_tr = ();
DB<2> s
main::(StTrAuto.pl:107): foreach $temp (@auto_tr)
main::(StTrAuto.pl:108): {
DB<2> s
main::(StTrAuto.pl:109):if($temp =~ m/^$start_state)/)
main::(StTrAuto.pl:110):{
DB<2> s
Unmatched ) in regex; marked by <-- HERE in m/^0) <-- HERE / at
StTrAuto.pl line 109.
at StTrAuto.pl line 109
Debugged program terminated. Use q to quit or R to restart,
use O inhibit_exit to avoid stopping after program termination,
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Re: match and putting in a variable with a single statement
On Fri, Oct 24, 2008 at 8:42 PM, Chas. Owens <[EMAIL PROTECTED]> wrote: > > > On Oct 24, 2008, at 11:00, "Sharan Basappa" <[EMAIL PROTECTED]> > wrote: > >> Hi, >> >> I was just trying to match a string and save it in a single statement >> as follows: >> >> $extracted = "cp xyz"; >> $state_var = $extracted =~ m/cp\s+(.*)/; >> print "$state_var $1 \n"; >> >> The output is: 1 xyz >> >> So the assignment to $state_var does not work. Is this an incorrect way. >> >> Regards > > In scalar context a match returns true if it matches or false if it doesn't. > You want to use list context to cause the match to return the captures: > > ($var) = $foo =~ /(blah)/; > Thanks. This is exactly what I was looking for. Was trying to avoid having to write two statements to do this. Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
match and putting in a variable with a single statement
Hi, I was just trying to match a string and save it in a single statement as follows: $extracted = "cp xyz"; $state_var = $extracted =~ m/cp\s+(.*)/; print "$state_var $1 \n"; The output is: 1 xyz So the assignment to $state_var does not work. Is this an incorrect way. Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: using algorithm-permute
On Wed, Oct 22, 2008 at 4:32 AM, Rob Dixon <[EMAIL PROTECTED]> wrote:
> Sharanbr wrote:
>> On Oct 19, 6:38 am, [EMAIL PROTECTED] (Sisyphus) wrote:
>>> On Oct 17, 3:04 am, [EMAIL PROTECTED] (Sharan Basappa) wrote:
>>>>
>>>> #!/usr/bin/perl
>>>> use warnings;
>>>> use Algorithm::Permute;
>>>> my @array = (1..4);
>>>> Algorithm::Permute::permute { print "@array\n" } @array;
>>>
>>> use warnings;
>>> use strict;
>>> use Algorithm::Permute;
>>>
>>> my @array = (1..9);
>>> my $p = new Algorithm::Permute([EMAIL PROTECTED]);
>>>
>>> # print out the first 20 permutations of @array,
>>> # assigning each permutation to @new, and
>>> # printing it out:
>>> for(1..20) {
>>> my @new = $p->next;
>>> print "@new\n";
>>>
>>> }
>>
>> I have modified the code a little bit to suit my requirements. But
>> still the code does not seem to work i.e.
>> the final print of @x does not display any value. However, I change
>> the code foreach (@array) to for (1..)
>> the way you have coded, it works fine. My requirement is to put all
>> the permutations into a new array,
>> not just (1..20)
>>
>> I have another basic doubt. After permute is called with @array
>> argument, does it now contain
>> new permutations or still (1..4).
>>
>> #!/usr/bin/perl
>> use warnings;
>> use Algorithm::Permute;
>>
>> my @array = (1..4);
>> my $p = new Algorithm::Permute([EMAIL PROTECTED]);
>> foreach (@array)
>> {
>> my @x = $p->next;
>> print "@x \n";
>> }
>
> You shouldn't pass a real array to the 'new' method as it destroys the array.
> It's bad but there it is, and the documentation does show it being called with
> an anonymous array.
>
> I'm not sure what you mean by 'put all the permutations into a new array', as
> each permutation is held in an array and I'm guessing that you don't know
> about
> arrays of arrays?
>
> The program I've written below stores each permutation as a single string with
> spaces between the elements. If you really do want a array of arrays instead
> of
> an array of strings then it's very obvious how to modify it to do that.
>
> HTH,
>
> Rob
>
>
> use strict;
> use warnings;
>
> use Algorithm::Permute;
>
> my $p = Algorithm::Permute->new([1 .. 4]);
>
> my @permutations;
>
> while (my @array = $p->next) {
> push @permutations, "@array";
> }
>
> print "$_\n" foreach @permutations;
>
Thanks, Rob. The method works and also fits in the overall code I am writing.
The main reason for confusion from my side is my lack of understanding
of how different methods
of algo permute work (e.g. I was not aware that an anonymous array was
created. I was thinking that
the original array is modified to create permutations. Lack of good
doc also contributed to this confusion.
Regards
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
using algorithm-permute
Hi,
I need to create permutations of a given set of values.
The set is itself present in an array. From this I am trying to create
another array that has permutations of this set.
I am able to create a small example and run but from the description of
the module I am not sure how to put the permutations into another array.
Can someone tell me how the code given below can be modified.
PS: I am not well versed with perl classes
Regards,
#!/usr/bin/perl
use warnings;
use Algorithm::Permute;
my @array = (1..4);
Algorithm::Permute::permute { print "@array\n" } @array;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Re: extract text between keywords
On Tue, Oct 14, 2008 at 8:50 PM, Rob Dixon <[EMAIL PROTECTED]> wrote:
> Sharan Basappa wrote:
>> On Fri, Oct 10, 2008 at 9:49 PM, Rob Dixon <[EMAIL PROTECTED]> wrote:
>>>
>>> If your problem really is that simple, and you don't expect 'keywordy'
>>> blocks to
>>> be nested inside other 'keywordy' blocks, then the program below will do
>>> what
>>> you need.
>>>
>>> It may help if you showed us some actual data so that we could get a better
>>> insight into how it behaves.
>>>
>>>
>>> use strict;
>>> use warnings;
>>>
>>> while () {
>>> print if /\bkeywordy\b/ .. /\bendkeywordy\b/;
>>> }
>>>
>>> __DATA__
>>> keywordx ...
>>>
>>> keywordy identifier_a
>>>some text
>>> endkeywordy
>>>
>>> keywordz identifier_a
>>>some text
>>> endkeywordz
>>>
>>> endkeywordx
>>>
>>
>> Thanks, Rob. I will give a try with this code. But given that there
>> are new lines between keyword and endkeyword,
>> do you think it will work.
>
> I am certain that it will work if the data is similar to what you have
> described. I hope it is obvious that my program reads the input file line by
> line, and you would need to write
>
> open my $fh, '<', 'filename' or die $!;
>
> while (<$fh>) {
>:
> }
>
> instead of using the DATA file handle as I did in my example.
>
> Rob
>
Thanks, Rob. I am aware that a file descriptor needs to be opened etc.
BTW, do you think text-balanced can help in situations that are slightly
more complex than I described above. For example, if I have data like:
keywordx id
some text
some text
{
more text
more text
}
I would like to extract starting from keywordx till closing braces.
Add to this, there will be multiple instances of such code pieces in the
input I am trying to process.
I looked at text-balanced but could not find anything that would help in doing
the above task.
Thanks once again ...
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Re: extract text between keywords
On Fri, Oct 10, 2008 at 9:49 PM, Rob Dixon <[EMAIL PROTECTED]> wrote:
> Sharan Basappa wrote:
>>
>> I am trying to process a code for some processing.
>> The code looks like
>>
>> keywordx ...
>>
>> keywordy identifier_a
>> some text
>> endkeywordy
>>
>> keywordz identifier_a
>> some text
>> endkeywordz
>>
>> endkeywordx
>>
>>>From this, I would like to extract text starting from keywordy and
>>>endkeywordy.
>> Is using text balanced module the right way to go?
>> An example with or without text-balanced module would be really helpful ...
>
> If your problem really is that simple, and you don't expect 'keywordy' blocks
> to
> be nested inside other 'keywordy' blocks, then the program below will do what
> you need.
>
> It may help if you showed us some actual data so that we could get a better
> insight into how it behaves.
>
> HTH,
>
> Rob
>
>
> use strict;
> use warnings;
>
> while () {
> print if /\bkeywordy\b/ .. /\bendkeywordy\b/;
> }
>
> __DATA__
> keywordx ...
>
> keywordy identifier_a
>some text
> endkeywordy
>
> keywordz identifier_a
>some text
> endkeywordz
>
> endkeywordx
>
Thanks, Rob. I will give a try with this code. But given that there
are new lines between keyword and endkeyword,
do you think it will work.
Regards
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Re: add module path
On Sat, Oct 11, 2008 at 5:51 PM, Jeff Pang <[EMAIL PROTECTED]> wrote:
>
>> Message du 10/10/08 17:59
>> De : "Sharan Basappa"
>> A : "Jeff Pang"
>> Copie à : "Perl Beginners"
>> Objet : Re: add module path
>>
>>
>> These are system installation. Can you tell me upto what directory
>> should I be including use lib path?
>>
>>
>
> Under this case you don't need to specify a special path for the modules you
> installed.
> Perl can find them automatically.
> Perl will install them under one of these paths (the command below
> outputed):
>
> perl -e 'print join"\n",@INC'
>
>
> Regards,
> Jeff.
>
> Créez votre adresse électronique [EMAIL PROTECTED]
> 1 Go d'espace de stockage, anti-spam et anti-virus intégrés.
>
Thanks Rob & Jeff,
I have tried installing the package in a common path.
I tried this for algorithm-permute and that goes through without any issues
I tried this for text-balanced and that creates issues.
It shows the foll issue:
Warning: prerequisite version 0 not found.
Could not eval '
package ExtUtils::MakeMaker::_version;
no strict;
local $VERSION;
$VERSION=undef; do {
use version; $VERSION = qv('2.0.0');
}; $VERSION
' in lib/Text/Balanced.pm: Can't locate version.pm in @INC
(@INC contains: /usr/lib/perl5/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/5.8.5
/usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4
/usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2
/usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0
/usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4
/usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2
/usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0
/usr/lib/perl5/vendor_perl .) at (eval 4) line 7, line 13.
BEGIN failed--compilation aborted at (eval 4) line 7, line 13.
WARNING: Setting VERSION via file 'lib/Text/Balanced.pm' failed
at /usr/lib/perl5/5.8.5/ExtUtils/MakeMaker.pm line 506
So I tried installing version module first. That goes without any issues.
But I still face the above issue when trying to install text-balanced.
Regards
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Re: add module path
These are system installation. Can you tell me upto what directory should I be including use lib path? Regards On Fri, Oct 10, 2008 at 9:10 PM, Jeff Pang <[EMAIL PROTECTED]> wrote: >> Message du 10/10/08 17:32 >> De : "Sharan Basappa" >> A : "Jeff Pang" >> Copie à : "Perl Beginners" >> Objet : Re: add module path >> >> >> Ok, so if I understand you correctly this is what I have to do >> >> 1) install module C in a/b/c directory (for example) >> >> 2) install module D in a/b/d directory >> >> 3) copy the .pm files installed under a/b/c and a/b/d to a/b/my_lib >> >> 4) include a/b/my_lib in perl code >> > > If C and D is a system installation (ie,the modules from CPAN), you just use > them as normal. > if you have your own modules, then put them into a/b/my_lib (or any paths > you liked). > After that you use lib 'a/b/my_lib' in the codes. > > > Regards, > Jeff. > > Créez votre adresse électronique [EMAIL PROTECTED] > 1 Go d'espace de stockage, anti-spam et anti-virus intégrés. > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
extract text between keywords
Hi, I am trying to process a code for some processing. The code looks like keywordx ... keywordy identifier_a some text endkeywordy keywordz identifier_a some text endkeywordz endkeywordx >From this, I would like to extract text starting from keywordy and endkeywordy. Is using text balanced module the right way to go? An example with or without text-balanced module would be really helpful ... Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: add module path
Ok, so if I understand you correctly this is what I have to do 1) install module C in a/b/c directory (for example) 2) install module D in a/b/d directory 3) copy the .pm files installed under a/b/c and a/b/d to a/b/my_lib 4) include a/b/my_lib in perl code So you are also saying that the path I am including should have .pm file under the directory. Please note that currently under the lib directory installed, there is no .pm file Regards On Fri, Oct 10, 2008 at 8:49 PM, Jeff Pang <[EMAIL PROTECTED]> wrote: >> Message du 10/10/08 17:13 >> De : "Sharan Basappa" > >> For example, the text-balanced path looks somewhat like - >> /home/user/local/perl/balanced_install >> with lib and share directories in this path. So do I include >> 1) /home/user/local/perl/balanced_install? >> 2) /home/user/local/perl/balanced_install/lib? > > That's decided by you. > If you begin a project, all of the scripts are located in a path called > "/project/path". > You could create the dir of "/project/path/lib" and put all the .pm files > into it. > Then you could "use lib '/project/path/lib' " in each script of that > project. > > > Regards, > Jeff. > > Créez votre adresse électronique [EMAIL PROTECTED] > 1 Go d'espace de stockage, anti-spam et anti-virus intégrés. > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: add module path
2008/10/10 Jeff Pang <[EMAIL PROTECTED]>: > >> Message du 10/10/08 16:49 >> De : "Sharan Basappa" >> A : "Perl Beginners" >> Copie à : >> Objet : add module path >> >> >> Hi, >> >> I have 2 permute and Text-balanced modules installed. They are in the >> path: >> "/home//local/perl/" >> > > > consider 'use lib' at the script's begin: > > use lib '/home/sth/local/perl'; > use modules; # your own modules under that path > > > Regards, > Jeff. > > Créez votre adresse électronique [EMAIL PROTECTED] > 1 Go d'espace de stockage, anti-spam et anti-virus intégrés. > Sorry Jeff, if I was not clear in my question. I am doing exactly what you have suggested (use "use lib) But the question really is what portion of the directory path to add to use lib. For example, the text-balanced path looks somewhat like - /home/user/local/perl/balanced_install with lib and share directories in this path. So do I include 1) /home/user/local/perl/balanced_install? 2) /home/user/local/perl/balanced_install/lib? or something else? Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
add module path
Hi, I have 2 permute and Text-balanced modules installed. They are in the path: "/home//local/perl/" I tried an example for permute by including the module path as: "/home/user/local/perl/perm_install/lib/perl5/site_perl" Now this seems to go through. For Text-balanced, I dont find similar path. I have a feeling I am overly complicating by including such a long path. Please help and comment as to what the right way is to include the modules! Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: extracting multiple statements ...
On Mon, Sep 22, 2008 at 9:02 PM, Thomas Bätzler <[EMAIL PROTECTED]> wrote:
> Hi,
>
> Sharan Basappa <[EMAIL PROTECTED]> asked:
>> I have a code snippet as follows:
>>
>> keyword id1 = a x b x c;
>> keyword id2 = c x d x e;
>>
>> I would like to extract strings "a x b x c" and "c x d x e".
>> I know I can loop through the code and extract the strings,
>> but is there a RE that can do this with a single statement.
>
> You could do something like
>
> #!/usr/bin/perl -w
>
> use strict;
>
> my $code;
> {
> local $/ = undef;
>
> $code = ;
> }
>
> my( @matches ) = ( $code =~ m/^\s*keyword\s+id\d+\s*=\s*(.*?)\s*;\s*$/gm );
>
> foreach my $match (@matches ){
> print "$match\n";
> }
>
> __DATA__
> blah
> blah
> keyword id1 = a x b x c;
> blah
> keyword id2 = c x d x e;
> blah
>
>> As a side point - is there way to debug RE. Example, many a
>> times when we write an RE, it fails and requires fine tuning.
>> But it would be good to see how far was the RE was able to go
>> and at what point it bailed out.
>
> See http://www.weitz.de/regex-coach/
>
> HTH,
> Thomas
>
>
Thanks Tom and Shawn. The method given by Shawn works (with minor changes).
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
extracting multiple statements ...
Hi, I have a code snippet as follows: keyword id1 = a x b x c; keyword id2 = c x d x e; I would like to extract strings "a x b x c" and "c x d x e". I know I can loop through the code and extract the strings, but is there a RE that can do this with a single statement. My first guess was to use /s modifier but I am not sure. As a side point - is there way to debug RE. Example, many a times when we write an RE, it fails and requires fine tuning. But it would be good to see how far was the RE was able to go and at what point it bailed out. Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: grabbing text between two tokens
> OTOH, I don't see the point in struggling with Text::Balanced, when all you > need is: > > my @extracted = $source =~ /covergroup.+?endgroup/gs; The example I gave is simple but will become more complex as I keep adding functionality to it. More complex input is yet to come. Also, I believe people would frown if they see applications of complex hand written regexes when built in modules can do that work. Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: grabbing text between two tokens
On Wed, Apr 23, 2008 at 8:33 PM, Gunnar Hjalmarsson <[EMAIL PROTECTED]> wrote:
> Sharan Basappa wrote:
>
> > I have gone through the text-balanced doc and tried few examples
> > myself. Looks like I need
> > some help on this module usage and capabilities.
> > Basically the text I am trying to extract is embedded inside two
> > tokens (say {}),
> > but it can occur anywhere in the input text stream. I tried using
> extract_tagged
> > function, but that seems to succeed only if the text starts with the tag I
> am
> > specifying.
> > For example, the following example returns expected value (i.e. {abc}):
> >
>
>
>
>
>
> > $text = q{{abc}12345};
> > ($extracted, $remainder) = extract_tagged($text, '{', '}');
> > print "$extracted \n";
> >
> > The following example does not (difference is that $text does not
> > start with {):
> >
>
>
>
>
>
> > $text = q{12{abc}12345};
> > ($extracted, $remainder) = extract_tagged($text, '{', '}');
> > print "$extracted \n";
> >
>
> You need a prefix pattern as the fourth argument, e.g. '[\w\s]+'
>
>
>
> > The other question I have is that I would like to use text-balanced
> > module to extract multiple
> > occurences of these strings that are tagged by these tokens. Is that
> possible?
> >
>
> Use the extract_multiple() function.
>
Thanks, Gunnar. So I am assuming that extract_tagged is fine, but it
should go into
extract_multiple. Is that correct?
BTW, I seem to be having extracting code block below.
There is no output. Here is the code block:
#/usr/bin/perl
# read the input file for parsing - defered
# extract whatever is between covergroups
#!/usr/bin/perl
#use warnings;
use lib
"/u/basappas/local/perl/perm_install/lib/perl5/site_perl";
use Text::Balanced qw (
extract_delimited
extract_bracketed
extract_quotelike
extract_codeblock
extract_variable
extract_tagged
extract_multiple
gen_delimited_pat
gen_extract_tagged
);
$source = " covergroup cg @(posedge clk);
coverpoint v_a
{
bins sa = 0 => 1 => 2 => 0;
bins sa = 0 => 1 => 0;
}
endgroup";
($extracted, $remainder) = extract_tagged($source, covergroup, endgroup,
'[\w\s]*');
print "$extracted \n";
I remove the 4th arg and I see proper output. That is, the code is changed to:
#/usr/bin/perl
# read the input file for parsing - defered
# extract whatever is between covergroups
#!/usr/bin/perl
#use warnings;
use lib
"/u/basappas/local/perl/perm_install/lib/perl5/site_perl";
use Text::Balanced qw (
extract_delimited
extract_bracketed
extract_quotelike
extract_codeblock
extract_variable
extract_tagged
extract_multiple
gen_delimited_pat
gen_extract_tagged
);
$source = " covergroup cg @(posedge clk);
coverpoint v_a
{
bins sa = 0 => 1 => 2 => 0;
bins sa = 0 => 1 => 0;
}
endgroup";
($extracted, $remainder) = extract_tagged($source, covergroup, endgroup);
print "$extracted \n";
Is something wrong with the code?
Regards
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Re: grabbing text between two tokens
On Wed, Apr 16, 2008 at 12:20 AM, Gunnar Hjalmarsson <[EMAIL PROTECTED]> wrote:
> Sharan Basappa wrote:
>
> > Gary Stainburn wrote:
> >
> > >
> > > On Monday 14 April 2008 16:35, Sharan Basappa wrote:
> > >
> > >
> > > > I am trying to capture the text between two tokens. These tokens
> > > > always exist in pairs but can occur N times.
> > > > I somehow dont get what I want.
> > > >
> > > > $str =~ m/tokena(.*)tokenb/ms;
> > > > print $1;
> > > >
> > >
> > > Try
> > >
> > > $str =~ m/tokena(.*?)tokenb/ms;
> > >
> >
> >
> > actually I tried this before posting this question. The issue is that
> > regex stops after first match.
> >
>
> Show us a short but _complete_ program, and we can help you correct it.
>
>
> --
> Gunnar Hjalmarsson
> Email: http://www.gunnar.cc/cgi-bin/contact.pl
>
> --
>
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
I have gone through the text-balanced doc and tried few examples
myself. Looks like I need
some help on this module usage and capabilities.
Basically the text I am trying to extract is embedded inside two
tokens (say {}),
but it can occur anywhere in the input text stream. I tried using extract_tagged
function, but that seems to succeed only if the text starts with the tag I am
specifying.
For example, the following example returns expected value (i.e. {abc}):
#!/usr/bin/perl
#use warnings;
use lib
"/u/basappas/local/perl/perm_install/lib/perl5/site_perl";
use Text::Balanced qw (
extract_delimited
extract_bracketed
extract_quotelike
extract_codeblock
extract_variable
extract_tagged
extract_multiple
gen_delimited_pat
gen_extract_tagged
);
$text = q{{abc}12345};
($extracted, $remainder) = extract_tagged($text, '{', '}');
print "$extracted \n";
The following example does not (difference is that $text does not
start with {):#!/usr/bin/perl
#use warnings;
use lib
"/u/basappas/local/perl/perm_install/lib/perl5/site_perl";
use Text::Balanced qw (
extract_delimited
extract_bracketed
extract_quotelike
extract_codeblock
extract_variable
extract_tagged
extract_multiple
gen_delimited_pat
gen_extract_tagged
);
$text = q{12{abc}12345};
($extracted, $remainder) = extract_tagged($text, '{', '}');
print "$extracted \n";
The other question I have is that I would like to use text-balanced
module to extract multiple
occurences of these strings that are tagged by these tokens. Is that possible?
Regards
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Re: installing Text-Balanced module
On Sat, Apr 19, 2008 at 12:35 AM, Gunnar Hjalmarsson <[EMAIL PROTECTED]> wrote: > Sharan Basappa wrote: > > > I downloaded version and installed it. That went smoothly. When I go back > to text-balanced installation, it still does not seem to locate version.pm > > > > I think it's advisable to follow the recommendation in > > perldoc -q "own module" > > and use both the PREFIX and LIB options. > > Usually I install Perl modules as root, but as a learning exercise I > installed version and Text::Balanced as a usual user. The log from the > installation follows below. > > [EMAIL PROTECTED] .tmp]$ ls -lF > total 368 > drwxr-xr-x4 gunnarh gunnarh 4096 Dec 19 2006 > Text-Balanced-v2.0.0/ > -rw-r--r--1 gunnarh gunnarh133120 Apr 18 13:39 > Text-Balanced-v2.0.0.tar > drwxr-xr-x6 gunnarh gunnarh 4096 Oct 24 20:47 version-0.74/ > -rw-r--r--1 gunnarh gunnarh225280 Apr 18 13:39 version-0.74.tar > [EMAIL PROTECTED] .tmp]$ cd version-0.74 > [EMAIL PROTECTED] version-0.74]$ perl Makefile.PL PREFIX=/home/gunnarh/perl > LIB=/home/gunnarh/perl/lib > Testing if you have a C compiler > Checking if your kit is complete... > Looks good > Writing Makefile for version::vxs > Writing Makefile for version > [EMAIL PROTECTED] version-0.74]$ make > cp lib/version.pm blib/lib/version.pm > cp lib/version.pod blib/lib/version.pod > make[1]: Entering directory `/home/gunnarh/.tmp/version-0.74/vutil' > cp lib/version/vxs.pm ../blib/lib/version/vxs.pm > gcc -c -D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING > -fno-strict-aliasing -I/usr/loca > l/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm > -O2 -g -pipe -march=i386 -m > cpu=i686 -DVERSION=\"0.74\" -DXS_VERSION=\"0.74\" -fPIC > "-I/usr/lib/perl5/5.8.1/i386-linux-thread- > multi/CORE" vutil.c > /usr/bin/perl /usr/lib/perl5/5.8.1/ExtUtils/xsubpp -typemap > /usr/lib/perl5/5.8.1/ExtUtils/typemap - > typemap ../lib/version/typemap vxs.xs > vxs.xsc && mv vxs.xsc vxs.c > gcc -c -D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING > -fno-strict-aliasing -I/usr/loca > l/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm > -O2 -g -pipe -march=i386 -m > cpu=i686 -DVERSION=\"0.74\" -DXS_VERSION=\"0.74\" -fPIC > "-I/usr/lib/perl5/5.8.1/i386-linux-thread- > multi/CORE" vxs.c > Running Mkbootstrap for version::vxs () > chmod 644 vxs.bs > rm -f ../blib/arch/auto/version/vxs/vxs.so > LD_RUN_PATH="" gcc -shared -L/usr/local/lib vutil.o vxs.o -o > ../blib/arch/auto/version/vxs/vxs.so > > chmod 755 ../blib/arch/auto/version/vxs/vxs.so > cp vxs.bs ../blib/arch/auto/version/vxs/vxs.bs > chmod 644 ../blib/arch/auto/version/vxs/vxs.bs > make[1]: Leaving directory `/home/gunnarh/.tmp/version-0.74/vutil' > Manifying blib/man3/version.3pm > [EMAIL PROTECTED] version-0.74]$ make test > make[1]: Entering directory `/home/gunnarh/.tmp/version-0.74/vutil' > make[1]: Leaving directory `/home/gunnarh/.tmp/version-0.74/vutil' > PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" > "test_harness(0, 'blib/lib', 'blib/ar > ch')" t/*.t > t/01base...ok > t/02derivedok > t/03requireok > 4/127 skipped: version require'd instead of use'd, cannot test qv > All tests successful, 4 subtests skipped. > Files=3, Tests=390, 1 wallclock secs ( 0.55 cusr + 0.03 csys = 0.58 CPU) > make[1]: Entering directory `/home/gunnarh/.tmp/version-0.74/vutil' > No tests defined for version::vxs extension. > make[1]: Leaving directory `/home/gunnarh/.tmp/version-0.74/vutil' > [EMAIL PROTECTED] version-0.74]$ make install > make[1]: Entering directory `/home/gunnarh/.tmp/version-0.74/vutil' > make[1]: Leaving directory `/home/gunnarh/.tmp/version-0.74/vutil' > Installing > /home/gunnarh/perl/lib/i386-linux-thread-multi/auto/version/vxs/vxs.so > Installing > /home/gunnarh/perl/lib/i386-linux-thread-multi/auto/version/vxs/vxs.bs > Files found in blib/arch: installing files in blib/lib into architecture > dependent library tree > Installing /home/gunnarh/perl/lib/i386-linux-thread-multi/version.pod > Installing /home/gunnarh/perl/lib/i386-linux-thread-multi/version.pm > Installing /home/gunnarh/perl/lib/i386-linux-thread-multi/version/vxs.pm > Installing /home/gunnarh/perl/share/man/man3/version.3pm > Writing > /home/gunnarh/perl/lib/i386-linux-thread-multi/auto/version/.packlist > Appending installation info to > /home/gunnarh/perl/lib/i386-linux-t
Re: installing Text-Balanced module
On Thu, Apr 17, 2008 at 9:17 PM, Chas. Owens <[EMAIL PROTECTED]> wrote:
>
>
> On Apr 17, 2008, at 11:41, Sharan Basappa wrote:
>
>
> PREREQ_PM => {
> 'Test::More' => 0,
> 'version'=> 0,
> },snip
>
>
> So, that means I have to install this module?
>
> Regards
> snip
>
> That means that both Test::More and version must be installed. You check to
> see if a module is installed by saying
>
> perl -MModule::Name -e 1
>
> if you get an error then the module is not present in your system (or at
> least not visible). Note that you may need to set PERL5_LIB in order to
> find the modules you are installing:
>
> export PERL5_PATH="/u/basappas/local/perl/perm_install/lib/perl5/site_perl"
>
I downloaded version and installed it. That went smoothly.
When I go back to text-balanced installation, it still does not seem
to locate version.pm
Any ideas?
Here are the steps:
setenv PERL5_PATH
/u/basappas/local/perl/version_install/lib/perl5/site_perl
(version_install is where version has been installed)
perl Makefile.PL PREFIX=/u/basappas/local/perl/balanced_install
The error is:
perl Makefile.PL PREFIX=/u/basappas/local/perl/balanced_install
Warning: prerequisite version 0 not found.
Could not eval '
package ExtUtils::MakeMaker::_version;
no strict;
local $VERSION;
$VERSION=undef; do {
use version; $VERSION = qv('2.0.0');
}; $VERSION
' in lib/Text/Balanced.pm: Can't locate version.pm in @INC
(@INC contains: /usr/lib/perl5/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/5.8.5
/usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4
/usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2
/usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0
/usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4
/usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2
/usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0
/usr/lib/perl5/vendor_perl .) at (eval 4) line 7, line 13.
BEGIN failed--compilation aborted at (eval 4) line 7, line 13.
WARNING: Setting VERSION via file 'lib/Text/Balanced.pm' failed
at /usr/lib/perl5/5.8.5/ExtUtils/MakeMaker.pm line 506
Writing Makefile for Text::Balanced
One thing that puzzles me is that the search path does not include
/u/basappas/local/perl/version_install/lib/perl5/site_perl.
This despite setting PERL5_LIB to the above path.
Regards
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Re: installing Text-Balanced module
On Thu, Apr 17, 2008 at 9:07 PM, Chas. Owens <[EMAIL PROTECTED]> wrote:
> On Thu, Apr 17, 2008 at 11:34 AM, Sharan Basappa
>
> <[EMAIL PROTECTED]> wrote:
>
>
> > On Thu, Apr 17, 2008 at 8:41 PM, Gunnar Hjalmarsson <[EMAIL PROTECTED]>
> > wrote:
> > > Sharan Basappa wrote:
> > >
> > > > I am installing Text-Balanced module locally.
> > > > perl Makefile.PL .. step does not complete.
> > > >
> > > > It bails out with the foll. error:
> > > > Warning: prerequisite version 0 not found.
> > > >
> > >
> > >
> > >
> > >
> > >
> > > > This looks like a dependency issue. Can someone tell me what module
> > > > should I be installing before I can
> > > > install Text-Balanced?
> > > >
> > >
> > > The Makefile.PL file can...
> > > http://search.cpan.org/src/DCONWAY/Text-Balanced-v2.0.0/Makefile.PL
> > >
> > I did not get you clearly. Are you saying that the Makefile can take
> > care of dependancy modules?
> > If so, what do the errors mean.
> > BTW, I continued despite the errors I mentioned above.
> > But when I run make test, the summary report shows:
> > 2 tests skipped.
> > Failed 9/11 test scripts, 18.18% okay. 560/560 subtests failed, 0.00%
> okay.
> > make: *** [test_dynamic] Error 255
> >
> > This tells me that all did not go well with installation.
> >
> > Regards
> >
> >
> >
> > --
>
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> > http://learn.perl.org/
> >
> >
> >
>
> He is trying to let you know that Makefile.PL contains the names of
> the modules this one is dependent on. Specifically the hash ref
> stored in PREREQ_PM.
>
> use strict;
> use warnings;
> use ExtUtils::MakeMaker;
>
> WriteMakefile(
> NAME=> 'Text::Balanced',
> AUTHOR => 'Damian Conway <[EMAIL PROTECTED]>',
> VERSION_FROM=> 'lib/Text/Balanced.pm',
> ABSTRACT_FROM => 'lib/Text/Balanced.pm',
> INSTALLDIRS => ($] >= 5.007003 ? 'perl' : 'site'),
> PL_FILES=> {},
> PREREQ_PM => {
> 'Test::More' => 0,
> 'version'=> 0,
> },
> dist=> { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
> clean => { FILES => 'Text-Balanced-*' },
> );
>
>
>
>
> --
> Chas. Owens
> wonkden.net
> The most important skill a programmer can have is the ability to read.
>
So, that means I have to install this module?
Regards
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Re: installing Text-Balanced module
unfortunately the server I am trying to install the module is not connected to net. Regards On Thu, Apr 17, 2008 at 9:05 PM, Chas. Owens <[EMAIL PROTECTED]> wrote: > On Thu, Apr 17, 2008 at 10:57 AM, Sharan Basappa > <[EMAIL PROTECTED]> wrote: > > I am installing Text-Balanced module locally. > > perl Makefile.PL .. step does not complete. > snip > > > This looks like a dependency issue. Can someone tell me what module > > should I be installing before I can > > install Text-Balanced? > snip > > If the machine you are using can connect to the Internet, you should > really use CPAN to do the install (it takes care of the Perl > dependencies). Try running > > perl -MCPAN -e "install Text::Balanced" > > Answer with the default for most questions. When you get to the part > where it asks you > > Paramaters for the 'perl Makefile.PL' command? > Typical frequently used settings: > > PREFIX=~/perl non-root users (please see manual for more hints) > > Your choice: [INSTALLDIRS=site] > > type in PREFIX=/u/basappas/local/perl/perm_install > > You should be able to use the defaults for the rest > -- > Chas. Owens > wonkden.net > The most important skill a programmer can have is the ability to read. > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: installing Text-Balanced module
On Thu, Apr 17, 2008 at 8:41 PM, Gunnar Hjalmarsson <[EMAIL PROTECTED]> wrote: > Sharan Basappa wrote: > > > I am installing Text-Balanced module locally. > > perl Makefile.PL .. step does not complete. > > > > It bails out with the foll. error: > > Warning: prerequisite version 0 not found. > > > > > > > > > This looks like a dependency issue. Can someone tell me what module > > should I be installing before I can > > install Text-Balanced? > > > > The Makefile.PL file can... > http://search.cpan.org/src/DCONWAY/Text-Balanced-v2.0.0/Makefile.PL > I did not get you clearly. Are you saying that the Makefile can take care of dependancy modules? If so, what do the errors mean. BTW, I continued despite the errors I mentioned above. But when I run make test, the summary report shows: 2 tests skipped. Failed 9/11 test scripts, 18.18% okay. 560/560 subtests failed, 0.00% okay. make: *** [test_dynamic] Error 255 This tells me that all did not go well with installation. Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
installing Text-Balanced module
I am installing Text-Balanced module locally.
perl Makefile.PL .. step does not complete.
It bails out with the foll. error:
Warning: prerequisite version 0 not found.
Could not eval '
package ExtUtils::MakeMaker::_version;
no strict;
local $VERSION;
$VERSION=undef; do {
use version; $VERSION = qv('2.0.0');
}; $VERSION
' in lib/Text/Balanced.pm: Can't locate version.pm in @INC
(@INC contains: /usr/lib/perl5/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/5.8.5
/usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4
/usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2
/usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0
/usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4
/usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2
/usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0
/usr/lib/perl5/vendor_perl .) at (eval 4) line 7, line 13.
BEGIN failed--compilation aborted at (eval 4) line 7, line 13.
WARNING: Setting VERSION via file 'lib/Text/Balanced.pm' failed
at /usr/lib/perl5/5.8.5/ExtUtils/MakeMaker.pm line 506
Writing Makefile for Text::Balanced
This looks like a dependency issue. Can someone tell me what module
should I be installing before I can
install Text-Balanced?
Regards
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Re: algorithm/permute.pm
On Thu, Apr 17, 2008 at 7:37 PM, Chas. Owens <[EMAIL PROTECTED]> wrote: > > On Apr 17, 2008, at 10:03, Sharan Basappa wrote: > snip > > > > $perl Makefile.PL PREFIX=/u/basappas/local/perl/perm_install > > > snip > > Try > > use lib "/u/basappas/local/perl/perm_install/lib/perl5/site_perl"; > > > > -- > Chas. Owens > wonkden.net > The most important skill a programmer can have is the ability to read. > > Thanks, Chas. It works now. Thanks also to Sisyphus and Rob .. Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: algorithm/permute.pm
On Thu, Apr 17, 2008 at 1:26 AM, Rob Dixon <[EMAIL PROTECTED]> wrote:
> Sharan Basappa wrote:
> > Rob,
> >
> > I replied to Chas' mail with steps I have followed to install the module.
> > I have also tried omitting Algorithm to PREFIX, but that does not help.
> >
> > perl Makefile.PL PREFIX=/u/basappas/local/perl/iter2/Algorithm-Permute-0.11
> > make install
> > setenv PERL5LIB /u/basappas/local/perl/iter2/Algorithm-Permute-0.11
> > perl Perm2.pl
> > Can't locate Algorithm/Permute.pm in @INC (@INC contains:
> > /u/basappas/local/perl/onemore/Algorithm-Permute-0.11
> >
> > There are few parameters and I sure I am not using one of them properly.
> > 1) argument to PREFIX (with or without Algorithm)
> > 2) PERL5LIB path
> > 3) use lib directive in my script
>
> You don't need both to set PERL5LIB and 'use lib'. One or the other is fine.
>
> My reply said,
>
>
> > the log from 'make install' will show you where the module has been
> > installed to
>
> You still haven't published your installation log, so I can't help you
> much further, but it's wrong to include the Algorithm folder in the path
> you supply as the value of the PREFIX parameter
>
> Why are you using
>
>
> PREFIX=/u/basappas/local/perl/iter2/Algorithm-Permute-0.11
>
> when it could be just
>
>
> PREFIX=/u/basappas/local/perl
>
> ?
>
> Look in the installation log for where it has put Algorithm/Permute.pm -
> i.e. what is the path to the Algorithm folder. Use that path in your
> 'use lib' statement.
>
> Rob
>
Rob,
To avoid confusion, I have almost reset the steps and trying to follow some of
the recommendations given in this forum. The following are the steps.
$perl Makefile.PL PREFIX=/u/basappas/local/perl/perm_install
/local/perl/perm_install
Writing Makefile for Algorithm::Permute
Writing Makefile for Algorithm::Permute
$make install
::site_perl::5.8.5::i386-linux-thread-multi::perl5::site_perl::5.8.5::i386-linux-thread-multi::Algorithm::Permute.3pm
Installing
/u/basappas/local/perl/perm_install/share/man/man3/perl5::site_perl::5.8.5::i386-linux-thread-multi::perl5::site_perl::5.8.5::i386-linux-thread-multi::perl5::site_perl::5.8.5::i386-linux-thread-multi::perl5::5.8.5::i386-linux-thread-multi::perllocal.3pm
Installing
/u/basappas/local/perl/perm_install/share/man/man3/perl5::site_perl::5.8.5::i386-linux-thread-multi::perl5::site_perl::5.8.5::i386-linux-thread-multi::perl5::site_perl::5.8.5::i386-linux-thread-multi::perl5::site_perl::5.8.5::i386-linux-thread-multi::Algorithm::Permute.3pm
Writing
/u/basappas/local/perl/perm_install/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Algorithm/Permute/.packlist
Appending installation info to
/u/basappas/local/perl/perm_install/lib/perl5/5.8.5/i386-linux-thread-multi/perllocal.pod
$make test
ok 24
ok 25
skipping 26: memory leak test
skipping 27: memory leak test
make[1]: Leaving directory
`/u/basappas/local/perl/perm_installable/Algorithm-Permute-0.06/Algorithm'
Now I move back to /u/basappas/local/perl where I have Perm2.pl
Its contents are:
#!/usr/bin/perl
use warnings;
use lib "/u/basappas/local/perl/perm_install";
use Algorithm::Permute;
my @array = (1..4);
Algorithm::Permute::permute { print "@array\n" } @array;
The error is:
Can't locate Algorithm/Permute.pm in @INC (@INC contains:
/u/basappas/local/perl/perm_install
/usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5
/usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4
/usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2
/usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0
/usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4
/usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2
/usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0
/usr/lib/perl5/vendor_perl .) at Perm2.pl line 4.
BEGIN failed--compilation aborted at Perm2.pl line 4.
I am not sure if perm_install should be present in the lib pragma.
So I modified the perl code to be:
#!/us
Re: algorithm/permute.pm
Rob, I replied to Chas' mail with steps I have followed to install the module. I have also tried omitting Algorithm to PREFIX, but that does not help. perl Makefile.PL PREFIX=/u/basappas/local/perl/iter2/Algorithm-Permute-0.11 make install setenv PERL5LIB /u/basappas/local/perl/iter2/Algorithm-Permute-0.11 perl Perm2.pl Can't locate Algorithm/Permute.pm in @INC (@INC contains: /u/basappas/local/perl/onemore/Algorithm-Permute-0.11 There are few parameters and I sure I am not using one of them properly. 1) argument to PREFIX (with or without Algorithm) 2) PERL5LIB path 3) use lib directive in my script TIA, Regards On Tue, Apr 15, 2008 at 11:05 PM, Rob Dixon <[EMAIL PROTECTED]> wrote: > > Sharan Basappa wrote: > > On Fri, Apr 4, 2008 at 8:48 PM, Sharan Basappa <[EMAIL PROTECTED]> wrote: > >> Dont seem to have luck. I did make test followed by make install. > >> Here is what I got: > >> make install > >> Installing > /u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Algorithm/Permute/Permute.so > >> Installing > /u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Algorithm/Permute/Permute.bs > >> Files found in blib/arch: installing files in blib/lib into > >> architecture dependent library tree > >> Installing > /u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/Algorithm/Permute.pm > >> Installing > /u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Algorithm/Permute/autosplit.ix > >> Installing > /u/basappas/local/perl/Algorithm-Permute-0.06/share/man/man3/Algorithm::Permute.3pm > >> Writing > /u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Algorithm/Permute/.packlist > >> Appending installation info to > >> > /u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/5.8.5/i386-linux-thread-multi/perllocal.pod > >> > >> The issue still remains. That is: > >> >perl Perm2.pl > >> > >> Can't locate Algorithm/Permute.pm in @INC (@INC contains: > >> > >> /u/basappas/local/perl/Algorithm-Permute-0.06 > >> > >> /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5 > >> /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi > >> /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi > >> /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi > >> /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi > >> /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi > >> /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi > >> /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 > >> /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 > >> /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 > >> /usr/lib/perl5/site_perl > >> /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi > >> /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi > >> /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi > >> /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi > >> /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi > >> /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi > >> /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4 > >> /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2 > >> /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0 > >> /usr/lib/perl5/vendor_perl .) at Perm2.pl line 4. > >> BEGIN failed--compilation aborted at Perm2.pl line 4. > >> > >> Maybe I should rewind and start looking at this issue afresh now ... > >> > >> Regards > >> > >> > >> > >> On Tue, Apr 1, 2008 at 4:32 PM, sisyphus <[EMAIL PROTECTED]> wrote: > >> > > I did the following: > >> > > perl Makefile.PL > PREFIX=/u/basappas/local/perl/Algorithm-Permute-0.06 > >> > > >> > That's probably where you've got the Algorithm-Permute source - I'm > >> > not so sure it's a good idea to install the module into the source > >> > folder, but if you want to do that then next run 'make test', followed > >> > by 'make install'. > >> > > >> > Then, try this script: > >> > > >> > #!/usr/bin
Re: algorithm/permute.pm
On Tue, Apr 15, 2008 at 9:58 PM, Chas. Owens <[EMAIL PROTECTED]> wrote:
> Where/how did you install the module. If it was not installed in the normal
> directory (ie the one it will be installed in if you installed as root) you
> will need to either set the PERL5_LIB environmental variable or use the lib
> pragma.
>
yes, the module is installed as a local library.
It is in path /u/basappas/local/perl/onemore/Algorithm-Permute-0.11
The following are the steps I followed:
perl Makefile.PL
PREFIX=/u/basappas/local/perl/onemore/Algorithm-Permute-0.11/Algorithm
-- this step completes normal
make install - this step completes normal
PERL5LIB is set to:
/u/basappas/local/perl/onemore/Algorithm-Permute-0.11/ (should it
point to Algorithm?)
My code snippet is:
#!/usr/bin/perl
use warnings;
use lib "/u/basappas/local/perl/onemore/Algorithm-Permute-0.11";
use Algorithm::Permute;
my @array = (1..4);
Algorithm::Permute::permute { print "@array\n" } @array;
The error I get is:
Can't locate Algorithm/Permute.pm in @INC (@INC contains:
/u/basappas/local/perl/onemore/Algorithm-Permute-0.11
Question:
- Am I right in adding Algorithm to the prefix arg
(PREFIX=/u/basappas/local/perl/onemore/Algorithm-Permute-0.11/Algorithm)?
- I was originally not adding Algorithm to the arg, but tried this
option since perl seem to be looking for Permute.pm inside Algorithm
dir (or is it?)
Regards
> --
> Chas. Owens
> wonkden.net
> The most important skill a programmer can have is the ability to read.
>
>
>
> On Apr 15, 2008, at 12:00, Sharan Basappa wrote:
>
>
> >
> >
> >
> > On Fri, Apr 4, 2008 at 8:48 PM, Sharan Basappa <[EMAIL PROTECTED]>
> wrote:
> >
> > > Dont seem to have luck. I did make test followed by make install.
> > > Here is what I got:
> > > make install
> > > Installing
> /u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Algorithm/Permute/Permute.so
> > > Installing
> /u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Algorithm/Permute/Permute.bs
> > > Files found in blib/arch: installing files in blib/lib into
> > > architecture dependent library tree
> > > Installing
> /u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/Algorithm/Permute.pm
> > > Installing
> /u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Algorithm/Permute/autosplit.ix
> > > Installing
> /u/basappas/local/perl/Algorithm-Permute-0.06/share/man/man3/Algorithm::Permute.3pm
> > > Writing
> /u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Algorithm/Permute/.packlist
> > > Appending installation info to
> > >
> /u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/5.8.5/i386-linux-thread-multi/perllocal.pod
> > >
> > > The issue still remains. That is:
> > >
> > > > perl Perm2.pl
> > > >
> > >
> > > Can't locate Algorithm/Permute.pm in @INC (@INC contains:
> > >
> > > /u/basappas/local/perl/Algorithm-Permute-0.06
> > >
> > > /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5
> > > /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi
> > > /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi
> > > /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi
> > > /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi
> > > /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi
> > > /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi
> > > /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4
> > > /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2
> > > /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0
> > > /usr/lib/perl5/site_perl
> > > /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi
> > > /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi
> > > /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi
> > > /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi
> > > /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi
> > > /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi
> > > /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4
> > > /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2
> > > /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0
> > > /usr/lib/perl5/vendor_perl .) at Perm2.pl line 4.
> > > BEGIN failed--compilation aborted
Re: algorithm/permute.pm
On Fri, Apr 4, 2008 at 8:48 PM, Sharan Basappa <[EMAIL PROTECTED]> wrote:
> Dont seem to have luck. I did make test followed by make install.
> Here is what I got:
> make install
> Installing
> /u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Algorithm/Permute/Permute.so
> Installing
> /u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Algorithm/Permute/Permute.bs
> Files found in blib/arch: installing files in blib/lib into
> architecture dependent library tree
> Installing
> /u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/Algorithm/Permute.pm
> Installing
> /u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Algorithm/Permute/autosplit.ix
> Installing
> /u/basappas/local/perl/Algorithm-Permute-0.06/share/man/man3/Algorithm::Permute.3pm
> Writing
> /u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Algorithm/Permute/.packlist
> Appending installation info to
>
> /u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/5.8.5/i386-linux-thread-multi/perllocal.pod
>
> The issue still remains. That is:
> >perl Perm2.pl
>
> Can't locate Algorithm/Permute.pm in @INC (@INC contains:
>
> /u/basappas/local/perl/Algorithm-Permute-0.06
>
> /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5
> /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi
> /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi
> /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi
> /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi
> /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi
> /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi
> /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4
> /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2
> /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0
> /usr/lib/perl5/site_perl
> /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi
> /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi
> /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi
> /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi
> /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi
> /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi
> /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4
> /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2
> /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0
> /usr/lib/perl5/vendor_perl .) at Perm2.pl line 4.
> BEGIN failed--compilation aborted at Perm2.pl line 4.
>
> Maybe I should rewind and start looking at this issue afresh now ...
>
> Regards
>
>
>
> On Tue, Apr 1, 2008 at 4:32 PM, sisyphus <[EMAIL PROTECTED]> wrote:
> > > I did the following:
> > > perl Makefile.PL PREFIX=/u/basappas/local/perl/Algorithm-Permute-0.06
> >
> > That's probably where you've got the Algorithm-Permute source - I'm
> > not so sure it's a good idea to install the module into the source
> > folder, but if you want to do that then next run 'make test', followed
> > by 'make install'.
> >
> > Then, try this script:
> >
> > #!/usr/bin/perl
> > use warnings;
> > use lib "/u/basappas/local/perl/Algorithm-Permute-0.06";
> > use Algorithm::Permute;
> >
> > my @array = (1..4);
> >
> > Algorithm::Permute::permute { print "@array\n" } @array;
> >
> > Why are you installing version 0.06 when the latest version is 0.11 ?
> >
> >
> >
> > Cheers,
> > Rob
> >
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> > http://learn.perl.org/
> >
> >
> >
>
Looking at the error once again, I did notice that I was probably not
installing the module correctly.
When I looked at the error, it said: Can't locate Algorithm/Permute.pm ..
When I installed the module initially, the arg to prefix (perl
Makefile.pl PREFIX=...) included
the base directory and not Algorithm. The Algorithm directory expected
above did not exist.
Now I have installed as follows:
perl Makefile.pl PREFIX=/Algorithm
make install
make test
All these steps go through fine. In addition, I also find Algorithm
directory under the base dir.
the following are the files I find:
Algorithm Changescoollex.oMANIFEST Permute.bs Permute.pm README
bench coollex.c Makefile META.y
Re: grabbing text between two tokens
The issue is I have not been able to successfully install a local module so far. I have tried this in the context of Permute module and gave up after spending couple of days. My mail with subject "algorithm/permute.pm" is the one I am talking about Regards, On Mon, Apr 14, 2008 at 9:44 PM, Chas. Owens <[EMAIL PROTECTED]> wrote: > On Apr 14, 2008, at 11:35, Sharan Basappa wrote: > > > > Hi, > > > > I am trying to capture the text between two tokens. These tokens > > always exist in pairs but can occur N times. > > I somehow dont get what I want. > > > snip > > You might consider looking at Text::Balanced*. > > * http://search.cpan.org/dist/Text-Balanced/lib/Text/Balanced.pm > > -- > Chas. Owens > wonkden.net > The most important skill a programmer can have is the ability to read. > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: grabbing text between two tokens
actually I tried this before posting this question. The issue is that regex stops after first match. The output is: name: name1 I did put /g at the end, but results are the same. Regards On Mon, Apr 14, 2008 at 9:11 PM, Gary Stainburn <[EMAIL PROTECTED]> wrote: > On Monday 14 April 2008 16:35, Sharan Basappa wrote: > > Hi, > > > > I am trying to capture the text between two tokens. These tokens > > always exist in pairs but can occur N times. > > I somehow dont get what I want. > > > > > $str =~ m/tokena(.*)tokenb/ms; > > print $1; > > > Try > > > $str =~ m/tokena(.*?)tokenb/ms; > > The ? after the * stops it being greedy - i.e. it stops at the 1st tokenb and > not the last > > Gary > -- > Gary Stainburn > > This email does not contain private or confidential material as it > may be snooped on by interested government parties for unknown > and undisclosed purposes - Regulation of Investigatory Powers Act, 2000 > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > http://learn.perl.org/ > > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
grabbing text between two tokens
Hi, I am trying to capture the text between two tokens. These tokens always exist in pairs but can occur N times. I somehow dont get what I want. e.g. In the example below, I would like to capture text between tokena and tokenb. So it should capture name1 and name2. $str = "tokena name: name1 tokenb tokena name: name2 tokenb"; $str =~ m/tokena(.*)tokenb/ms; print $1; When I run this program, I get name: name1 tokenb tokena name: name2 Any suggestions? Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: algorithm/permute.pm
Dont seem to have luck. I did make test followed by make install.
Here is what I got:
make install
Installing
/u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Algorithm/Permute/Permute.so
Installing
/u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Algorithm/Permute/Permute.bs
Files found in blib/arch: installing files in blib/lib into
architecture dependent library tree
Installing
/u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/Algorithm/Permute.pm
Installing
/u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Algorithm/Permute/autosplit.ix
Installing
/u/basappas/local/perl/Algorithm-Permute-0.06/share/man/man3/Algorithm::Permute.3pm
Writing
/u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Algorithm/Permute/.packlist
Appending installation info to
/u/basappas/local/perl/Algorithm-Permute-0.06/lib/perl5/5.8.5/i386-linux-thread-multi/perllocal.pod
The issue still remains. That is:
>perl Perm2.pl
Can't locate Algorithm/Permute.pm in @INC (@INC contains:
/u/basappas/local/perl/Algorithm-Permute-0.06
/usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5
/usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4
/usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2
/usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0
/usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4
/usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2
/usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0
/usr/lib/perl5/vendor_perl .) at Perm2.pl line 4.
BEGIN failed--compilation aborted at Perm2.pl line 4.
Maybe I should rewind and start looking at this issue afresh now ...
Regards
On Tue, Apr 1, 2008 at 4:32 PM, sisyphus <[EMAIL PROTECTED]> wrote:
> > I did the following:
> > perl Makefile.PL PREFIX=/u/basappas/local/perl/Algorithm-Permute-0.06
>
> That's probably where you've got the Algorithm-Permute source - I'm
> not so sure it's a good idea to install the module into the source
> folder, but if you want to do that then next run 'make test', followed
> by 'make install'.
>
> Then, try this script:
>
> #!/usr/bin/perl
> use warnings;
> use lib "/u/basappas/local/perl/Algorithm-Permute-0.06";
> use Algorithm::Permute;
>
> my @array = (1..4);
>
> Algorithm::Permute::permute { print "@array\n" } @array;
>
> Why are you installing version 0.06 when the latest version is 0.11 ?
>
>
>
> Cheers,
> Rob
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
cant find locally installed module
I have installed permute module locally and added the path to my script.
However, perl fails to find the module.
The script:
#!/usr/bin/perl
use lib "/u/basappas/local/perl/Algorithm-Permute-0.06";
use Algorithm::Permute;
my @array = (1..9);
Algorithm::Permute::permute { print "@array\n" } @array;
The files under /u/basappas/local/perl/Algorithm-Permute-0.06:
bench Changes Makefile.PL META.ymlPermute.c Permute.pm
pm_to_blib typemap
blib Makefile MANIFEST Permute.bs Permute.o Permute.xs test.pl
The error:
Can't locate Algorithm/Permute.pm in @INC (@INC contains:
/u/basappas/local/perl/Algorithm-Permute-0.06
/usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5
/usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4
/usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2
/usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0
/usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4
/usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2
/usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0
/usr/lib/perl5/vendor_perl .) at Perm.pl line 3.
BEGIN failed--compilation aborted at Perm.pl line 3.
Please let me know if I am missing something...
Regards
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Re: parser using perl
true, I have the grammar in the form of BNF. But I am not interested in converting the BNF to parser rules, when I know that these productions are not useful to me. I am planning to write 8-10 rules and rules for pertaining tokens only. Of course, I might have to write additional rules to catch comments etc. Regards, On Mon, Mar 31, 2008 at 8:30 PM, Chas. Owens <[EMAIL PROTECTED]> wrote: > On Mon, Mar 31, 2008 at 10:51 AM, Sharan Basappa > > <[EMAIL PROTECTED]> wrote: > > > I am not a compler expert, but if I all I am interested in few > > productions out of > > many productions, I can setup by scanner to generate tokens pertaining to > > interesting productions and ignore the rest. As I said, I am not a > > compiler expert. > > So, I could be understating the problem .. > > > > I will have a look at the parser library. Thanks ... > > > > Regards > snip > > That assumes you have a grammar already, in which case generating a > full parser is easy. The problem comes from incomplete grammars. > > -- > > > Chas. Owens > wonkden.net > The most important skill a programmer can have is the ability to read. > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: parser using perl
I am not a compler expert, but if I all I am interested in few productions out of many productions, I can setup by scanner to generate tokens pertaining to interesting productions and ignore the rest. As I said, I am not a compiler expert. So, I could be understating the problem .. I will have a look at the parser library. Thanks ... Regards On Mon, Mar 31, 2008 at 8:16 PM, Chas. Owens <[EMAIL PROTECTED]> wrote: > > On Mon, Mar 31, 2008 at 10:36 AM, Sharan Basappa > <[EMAIL PROTECTED]> wrote: > > Hi, > > > > I am trying to extract information from a file that follows the syntax > > of a high level language (something like C++) > > The script just needs to understand a very minuscule portion of this > > language to do this. It does not have to > > know the complete high level language. I just wanted to know any > > modules are available within perl that makes > > this job easier. I feel it is possible to do the complete work in > > perl, but I might be wrong. Especially around the > > recursion that languages support. The other option I have is to use a > > public domain parser like Bison and parse > > the input, build some data structure that perl can lookup and do the > processing. > > > > I would like to know experience of people on this forum ... > > > > Regards > > > Take a look at Parse::RecDescent*. In general, it doesn't matter if > you want to work with a small piece of a language or the whole > language, you still need to implement a parser for the whole language. > You can get an eighty or ninety percent solution without a full > parser, but there will always be problems. > > * http://search.cpan.org/dist/Parse-RecDescent/lib/Parse/RecDescent.pm > > -- > Chas. Owens > wonkden.net > The most important skill a programmer can have is the ability to read. > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
parser using perl
Hi, I am trying to extract information from a file that follows the syntax of a high level language (something like C++) The script just needs to understand a very minuscule portion of this language to do this. It does not have to know the complete high level language. I just wanted to know any modules are available within perl that makes this job easier. I feel it is possible to do the complete work in perl, but I might be wrong. Especially around the recursion that languages support. The other option I have is to use a public domain parser like Bison and parse the input, build some data structure that perl can lookup and do the processing. I would like to know experience of people on this forum ... Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: algorithm/permute.pm
Here is what I have been able to do after installing the permute module:
My updated code looks like:
#!/usr/bin/perl
use lib "/u/basappas/local/perl/Algorithm-Permute-0.06/Algorithm::Permute";
Algorithm::Permute::permute { print "@array\n" } @array;
When I execute this script, I get the following error:
Can't call method "Algorithm::Permute::permute" without a package or
object reference at Perm.pl line 3.
Actually, I took this example from permute user manual, which says:
use Algorithm::Permute;
my $p = new Algorithm::Permute(['a'..'d']);
while (@res = $p->next) {
print join(", ", @res), "\n";
}
my @array = (1..9);
Algorithm::Permute::permute { print "@array\n" } @array;
Where Am I going wrong?
Regards
On Mon, Mar 31, 2008 at 6:40 PM, Sharan Basappa
<[EMAIL PROTECTED]> wrote:
> I did the following:
> perl Makefile.PL PREFIX=/u/basappas/local/perl/Algorithm-Permute-0.06
>
> I got the following message:
> perl/Algorithm-Permute-0.06
> Writing Makefile for Algorithm::Permute
>
> Now what? Should I execute the make file?
>
> After that can I point to this library and start using new library?
>
> Regards
>
>
>
> On Wed, Mar 26, 2008 at 3:45 PM, sisyphus <[EMAIL PROTECTED]> wrote:
> >
> > On Mar 25, 2:52 am, [EMAIL PROTECTED] (Sharan Basappa) wrote:
> > > Hi,
> > >
> > > I am trying to use permute call from the above module and I get the
> > > following error.
> > > I believe this is due to either missing lib or incorrect path setting.
> > > Can you tell
> > > me how to install this package quickly in my home path and try out this
> call?
> > >
> > > Regards
> > >
> > > Can't locate Algorithm/Permute.pm in @INC (@INC contains:
> > > /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5
> > > /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi
> > > /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi
> > > /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi
> > > /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi
> > > /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi
> > > /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi
> > > /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4
> > > /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2
> > > /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0
> > > /usr/lib/perl5/site_perl
> > > /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi
> > > /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi
> > > /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi
> > > /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi
> > > /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi
> > > /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi
> > > /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4
> > > /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2
> > > /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0
> > > /usr/lib/perl5/vendor_perl .) at Perm.pl line 2.
> > > BEGIN failed--compilation aborted at Perm.pl line 2.
> >
> > In addition to Paul's advice, I notice that @INC does not appear to
> > contain (anything that resembles my expectation of what would be) your
> > "home path".
> > Assuming that Permute.pm was successfully installed into the /home/me/
> > lib/Algorithm/ directory, then Perm.pl would need to begin with:
> >
> > use lib '/home/me/lib';
> >
> > If, instead, the problem is how to install Algorithm::Permute into /
> > home/me/lib, then (with a manual install) it's just a matter of
> > starting with:
> >
> > perl Makefile.PL PREFIX=/home/me/lib
> > or
> > perl Makefile.PL PREFIX=~/lib
> >
> > (This is documented in 'perldoc Extutils::MakeMaker', which is
> > referenced in the FAQ entry that Paul presented.)
> >
> > Cheers,
> > Rob
> >
> >
> >
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> > http://learn.perl.org/
> >
> >
> >
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Re: algorithm/permute.pm
I did the following: perl Makefile.PL PREFIX=/u/basappas/local/perl/Algorithm-Permute-0.06 I got the following message: perl/Algorithm-Permute-0.06 Writing Makefile for Algorithm::Permute Now what? Should I execute the make file? After that can I point to this library and start using new library? Regards On Wed, Mar 26, 2008 at 3:45 PM, sisyphus <[EMAIL PROTECTED]> wrote: > > On Mar 25, 2:52 am, [EMAIL PROTECTED] (Sharan Basappa) wrote: > > Hi, > > > > I am trying to use permute call from the above module and I get the > > following error. > > I believe this is due to either missing lib or incorrect path setting. > > Can you tell > > me how to install this package quickly in my home path and try out this > call? > > > > Regards > > > > Can't locate Algorithm/Permute.pm in @INC (@INC contains: > > /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5 > > /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi > > /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi > > /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi > > /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi > > /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi > > /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi > > /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 > > /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 > > /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 > > /usr/lib/perl5/site_perl > > /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi > > /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi > > /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi > > /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi > > /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi > > /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi > > /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4 > > /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2 > > /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0 > > /usr/lib/perl5/vendor_perl .) at Perm.pl line 2. > > BEGIN failed--compilation aborted at Perm.pl line 2. > > In addition to Paul's advice, I notice that @INC does not appear to > contain (anything that resembles my expectation of what would be) your > "home path". > Assuming that Permute.pm was successfully installed into the /home/me/ > lib/Algorithm/ directory, then Perm.pl would need to begin with: > > use lib '/home/me/lib'; > > If, instead, the problem is how to install Algorithm::Permute into / > home/me/lib, then (with a manual install) it's just a matter of > starting with: > > perl Makefile.PL PREFIX=/home/me/lib > or > perl Makefile.PL PREFIX=~/lib > > (This is documented in 'perldoc Extutils::MakeMaker', which is > referenced in the FAQ entry that Paul presented.) > > Cheers, > Rob > > > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > http://learn.perl.org/ > > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: copy array
thanks. I can also assume that variables work instead of 0..7 ($1..$2) so that I can write this as an general algo On Tue, Mar 25, 2008 at 9:31 PM, Rob Dixon <[EMAIL PROTECTED]> wrote: > > Sharan Basappa wrote: > > Hi, > > > > Is there a way I can copy only part of an array into another array. > > For example, I want to copy only first 8 elements of source array > > into destination array. > > my @dest = @source[0..7]; > > Rob > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
copy array
Hi, Is there a way I can copy only part of an array into another array. For example, I want to copy only first 8 elements of source array into destination array. Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
algorithm/permute.pm
Hi, I am trying to use permute call from the above module and I get the following error. I believe this is due to either missing lib or incorrect path setting. Can you tell me how to install this package quickly in my home path and try out this call? Regards Can't locate Algorithm/Permute.pm in @INC (@INC contains: /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at Perm.pl line 2. BEGIN failed--compilation aborted at Perm.pl line 2. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: contributing to perl
BTW, is there a way to add to existing modules instead of creating a new one. For example, the routine I am writing might fit perfectly in math module. On Fri, Mar 21, 2008 at 3:31 PM, Sharan Basappa <[EMAIL PROTECTED]> wrote: > ok. That clarifies ... > > > > On Fri, Mar 21, 2008 at 3:29 PM, J. Peng <[EMAIL PROTECTED]> wrote: > > On Fri, Mar 21, 2008 at 5:55 PM, Sharan Basappa > > > > <[EMAIL PROTECTED]> wrote: > > > > > Thanks, I will take a look. But going by the webpage, it seems to me > > > that the changes will > > > to the language itself and chnages to compiler. But what I want to > > > contribute is a subroutine? > > > Is this the right way to go? > > > > Write a module which includes that subroutine and contribute it to > > cpan, this is the best way I think. > > > > -- > > > > > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > For additional commands, e-mail: [EMAIL PROTECTED] > > http://learn.perl.org/ > > > > > > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: contributing to perl
ok. That clarifies ... On Fri, Mar 21, 2008 at 3:29 PM, J. Peng <[EMAIL PROTECTED]> wrote: > On Fri, Mar 21, 2008 at 5:55 PM, Sharan Basappa > > <[EMAIL PROTECTED]> wrote: > > > Thanks, I will take a look. But going by the webpage, it seems to me > > that the changes will > > to the language itself and chnages to compiler. But what I want to > > contribute is a subroutine? > > Is this the right way to go? > > Write a module which includes that subroutine and contribute it to > cpan, this is the best way I think. > > -- > > > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > http://learn.perl.org/ > > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: contributing to perl
Thanks, I will take a look. But going by the webpage, it seems to me that the changes will to the language itself and chnages to compiler. But what I want to contribute is a subroutine? Is this the right way to go? On Fri, Mar 21, 2008 at 3:03 PM, J. Peng <[EMAIL PROTECTED]> wrote: > to perl5 or perl6? for perl5 you can subscribe to this list: > http://lists.cpan.org/showlist.cgi?name=perl5-porters > > otherwise for perl6 you can subscribe to: > http://lists.cpan.org/showlist.cgi?name=perl6-internals > > good luck on the processing. > > On Fri, Mar 21, 2008 at 5:25 PM, Sharan Basappa > > > <[EMAIL PROTECTED]> wrote: > > Thanks a lot. Actually, what I was looking for is how do I contribute > > a subroutine like stuff to > > perl. Most of the scripts listed in the link are standalone utilities > > that achieve something. > > What I want to conrtibute is something more basic. Lets say someone > > (just for theory) > > wanted to contribute a subroutine similar to split function. How would he > do it? > > > > > > > > On Fri, Mar 21, 2008 at 2:38 PM, J. Peng <[EMAIL PROTECTED]> wrote: > > > You can contribute it to CPAN as a single perl script. > > > See this guide: > > > http://www.cpan.org/misc/cpan-faq.html#How_contribute_scripts > > > > > > > > > > > > On Fri, Mar 21, 2008 at 2:23 PM, Sharan Basappa > > > <[EMAIL PROTECTED]> wrote: > > > > Hi, > > > > > > > > I was thinking of contributing a utility function to perl. Want to > > > > know what is the procedure. > > > > Also, note that I dont have exposure to oops concept of perl > (though I > > > > have exposure to general > > > > oops concept) > > > > > > > > Regards > > > > > > > > -- > > > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > http://learn.perl.org/ > > > > > > > > > > > > > > > > > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: contributing to perl
Thanks a lot. Actually, what I was looking for is how do I contribute a subroutine like stuff to perl. Most of the scripts listed in the link are standalone utilities that achieve something. What I want to conrtibute is something more basic. Lets say someone (just for theory) wanted to contribute a subroutine similar to split function. How would he do it? On Fri, Mar 21, 2008 at 2:38 PM, J. Peng <[EMAIL PROTECTED]> wrote: > You can contribute it to CPAN as a single perl script. > See this guide: > http://www.cpan.org/misc/cpan-faq.html#How_contribute_scripts > > > > On Fri, Mar 21, 2008 at 2:23 PM, Sharan Basappa > <[EMAIL PROTECTED]> wrote: > > Hi, > > > > I was thinking of contributing a utility function to perl. Want to > > know what is the procedure. > > Also, note that I dont have exposure to oops concept of perl (though I > > have exposure to general > > oops concept) > > > > Regards > > > > -- > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > For additional commands, e-mail: [EMAIL PROTECTED] > > http://learn.perl.org/ > > > > > > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
contributing to perl
Hi, I was thinking of contributing a utility function to perl. Want to know what is the procedure. Also, note that I dont have exposure to oops concept of perl (though I have exposure to general oops concept) Regards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: find an entry in hash array
ok. thats what I wanted to confirm. I my crude code, I was doing
exactly that and was
wondering if there is some other way to make an entry without really
adding value.
Maybe, perl has to do it internally but will be much more optimal than the one
I am simply forcing a value of 1
Regards
On Thu, Mar 20, 2008 at 9:19 PM, Andrew Curry <[EMAIL PROTECTED]> wrote:
> %hash = map { $_ => 1 } @array;
>
> is just a funny way to write
>
> %hash = ();
> foreach $_ (@array) {
> $hash{$_} = 1;
>
>
> }
>
> -Original Message-
> From: Sharan Basappa [mailto:[EMAIL PROTECTED]
> Sent: 20 March 2008 15:47
> To: Chas. Owens
> Cc: Robert Leibl; Perl Beginners
> Subject: Re: find an entry in hash array
>
> Can you throw some light on this statement:
> my %hashset = map { $_ => 1 } @array;
>
> On Thu, Mar 20, 2008 at 9:14 PM, Chas. Owens <[EMAIL PROTECTED]>
> wrote:
> > On Thu, Mar 20, 2008 at 11:35 AM, Sharan Basappa
> >
> > <[EMAIL PROTECTED]> wrote:
> >
> > > Well here is what I am trying to do.
> > > I have an array (generated from somewhere) I would like to convert
>
> > > this into an associative array and then based on some other input
> > > I would like to see if an entry exists in the asso array. As you
> > can see > the value does not really matter. What matters is whether
> > the entry > exists or not.
> > > For example (very trivial one)
> > > I have a list of names that are allowed access to a machine. I
> > create a asso > array of them. Later when I want to check if the
> > user is allowed to login, I > check if that user exists or not.
> > Currently I am doing this by making value for > key as 1. But I
> never really use the value at all.
> > > Regards
> > snip
> >
> > This data structure is called a hash set. Hash sets are easy to make
> in Perl:
> >
> > #!/usr/bin/perl
> >
> > use warnings;
> > use strict;
> >
> > my @array = qw;
> > my %hashset = map { $_ => 1 } @array; for my $letter ("a" .. "i") {
> > if (exists $hashset{$letter}) {
> > print "$letter is in the hash set\n";
> > } else {
> > print "$letter is not in the hash set\n";
> > }
> > }
> >
> > a is in the hash set
> > b is not in the hash set
> > c is not in the hash set
> > d is in the hash set
> > e is not in the hash set
> > f is in the hash set
> > g is not in the hash set
> > h is in the hash set
> > i is not in the hash set
> >
> >
> > --
> >
> >
> > Chas. Owens
> > wonkden.net
> > The most important skill a programmer can have is the ability to
> read.
> >
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED] For additional
> commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
>
>
>
> This e-mail is from the PA Group. For more information, see
> www.thepagroup.com.
> This e-mail may contain confidential information.
> Only the addressee is permitted to read, copy, distribute or otherwise use
> this email or any attachments.
> If you have received it in error, please contact the sender immediately.
> Any opinion expressed in this e-mail is personal to the sender and may not
> reflect the opinion of the PA Group.
> Any e-mail reply to this address may be subject to interception or
> monitoring for operational reasons or for lawful business practices.
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
