Cumulative/recursive tagged diff/file evolution?

2011-03-07 Thread Jay Savage
Hi all, I'm working on a project to to track changes to text files over time. The goal is build of a data set that tags or tokenizes each word in the file with version where it was introduced. Basically I want to create data that could drive something similar this:

Re: Cumulative/recursive tagged diff/file evolution?

2011-03-07 Thread Jay Savage
2011/3/7 Rob Dixon rob.di...@gmx.com: On 07/03/2011 18:24, Jay Savage wrote: [snip] It is certainly not a 'solved problem', or the paper that you (indirectly) refer to would not have been written. What you are doing is non-trivial, but is described in detail in the paper Thanks

Re: understanding the ||= operator

2011-02-11 Thread Jay Savage
On Fri, Feb 11, 2011 at 5:38 AM, mailing lists listas.cor...@yahoo.es wrote: 12        $sheet - {MaxRow} ||= $sheet - {MinRow}; Line 12 can be written as: $sheet-{'MaxRow'} = $sheet-{'MaxRow'} || $sheet-{'MinRow'}; then that I don't understand is the program logic :-( what's the purpose of

Re: Merging YAML nodes/streams

2010-05-14 Thread Jay Savage
On Fri, May 14, 2010 at 7:26 AM, Tom tom.ash...@gmail.com wrote: On Fri, May 07, 2010 at 12:44:01PM -0400, Bob McConnell wrote: From: Tom I'm having trouble merging YAML streams. Basic premise is that I load multiple YAML files and I want to combine the result. There may be common

Re: testing if divisible by?

2010-05-03 Thread Jay Savage
On Sat, May 1, 2010 at 7:45 AM, Philip Potter philip.g.pot...@gmail.com wrote: On 1 May 2010 12:15, Paul opensou...@unixoses.com wrote: Hello all.  How can I test to see if a number is divisible by say, 40? Thanks. Use the modulo operator %. Given integers $x and $y, the expression $x % $y

Re: Getting garbage fast

2010-03-25 Thread Jay Savage
On Wed, Mar 24, 2010 at 5:15 AM, Philip Potter philip.g.pot...@gmail.com wrote: On 24 March 2010 00:56, Eric Veith1 eric.ve...@de.ibm.com wrote: Sam p...@net153.net wrote on 03/23/2010 11:18:11 PM: Could you use a file of random data? You can create one of those really easy: dd if=/dev/urandom

Re: 2 off in array count and index

2010-03-22 Thread Jay Savage
On Tue, Mar 16, 2010 at 11:47 AM, jbl jbl...@gmail.com wrote: I am reading a directory and creating an array of .png file names. I know for a fact that there are 1025 png files in the folder With $count = @files I get 1027 With $last = $#files I get 1026 $files [0] = . $files[1] = .. I have

Re: Writing tests for module utility scripts

2010-03-11 Thread Jay Savage
On Wed, Mar 10, 2010 at 8:43 PM, Steve Bertrand st...@ibctech.ca wrote: Hi all, I've got a module that has a significant number of unit tests for each sub, each within its own file: acct-dev: ISP-RADIUS % ls t | grep daily 07-aggregate_daily.t Within the overall package, I've included a

Re: use with variable

2010-03-10 Thread Jay Savage
On Wed, Mar 10, 2010 at 5:56 AM, HACKER Nora nora.hac...@stgkk.at wrote: Hi list, I want to use the Env::Sourced module for setting some environment variables depending on the Oracle version of a certain database: ~ ~ ~~ ~ ~~ ~ ~~ ~ ~~ ~ ~~ ~ ~~ ~ ~~ ~ ~~ ~ ~~ ~ ~~ ~ ~~ ~ ~~ ~ ~~ ~ ~~ ~ ~~

Re: Modeling FIFO financial transactions in Perl

2010-03-10 Thread Jay Savage
On Wed, Mar 10, 2010 at 12:36 PM, Kelly Jones kelly.terry.jo...@gmail.com wrote: How do I easily model first-in-first-out (FIFO) financial transactions in Perl? Example:  % I buy 100 shares of XYZ for $8/share on Day 1, another 100 shares  for $9/share on Day 2, and another 100 shares for

Re: Controlling one process depending on the status of another

2010-03-08 Thread Jay Savage
On Mon, Mar 8, 2010 at 10:27 AM, Eric Veith1 eric.ve...@de.ibm.com wrote: Bob McConnell r...@cbord.com wrote on 03/05/2010 08:22:23 PM: The way I read his problem description, it sounded neither simple nor easy. Bob, Jay, [snip] You see, there's IPC on the local machine and possibly

Re: Can anybody explain me what this shebang line is doing?

2010-03-06 Thread Jay Savage
On Sat, Mar 6, 2010 at 8:39 AM, Peter Scott pe...@psdt.com wrote: On Fri, 05 Mar 2010 11:42:34 -0500, Jay Savage wrote: On Thu, Mar 4, 2010 at 2:12 PM, YAPH yet.another.perl.hac...@gmail.com wrote: I got a perl script that begins like this. #!/usr/bin/sh -- # -*- perl -*- eval

Re: Can anybody explain me what this shebang line is doing?

2010-03-05 Thread Jay Savage
On Thu, Mar 4, 2010 at 2:12 PM, YAPH yet.another.perl.hac...@gmail.com wrote: I got a perl script that begins like this. - #!/usr/bin/sh -- #

Re: Controlling one process depending on the status of another

2010-03-05 Thread Jay Savage
On Wed, Mar 3, 2010 at 8:28 AM, Bob McConnell r...@cbord.com wrote: [snip] However, if the application is this complex, is Perl really the best language to use? It would not be my first choice. That is a very strange statement to make on a Perl beginners list, not least because it's complete

Re: octal?!

2010-02-22 Thread Jay Savage
On Fri, Feb 19, 2010 at 10:34 PM, Bryan R Harris bryan_r_har...@raytheon.com wrote: Is there any way to keep perl's eval from interpreting numbers starting with 0 as octal? Stringify them ? 2 * '012' is 24. Manually? We could have thousands of them.  How do I stringify them when they

Re: prepare(SELECT ... FROM TABLE) error

2010-02-10 Thread Jay Savage
On Tue, Feb 9, 2010 at 8:05 PM, Dr.Ruud rvtol+use...@isolution.nl wrote: Jay Savage wrote: [snip] Because $@ is a global, it is best practice to act on the return value of eval itself: [snip] $@ is also *guaranteed*--in the words of perlfunc--to be set correctly. I believe

Re: prepare(SELECT ... FROM TABLE) error

2010-02-09 Thread Jay Savage
On Wed, Feb 3, 2010 at 9:22 PM, Tony Esposito tony1234567...@yahoo.co.uk wrote: This question has never been answered.  To out it another way, given the code ...  foreach my $mytable (@mytables) {  my $sth = $dbh-prepare(SELECT COUNT(*) FROM mytable);  # report error but move on to next

Re: do something after time expired

2009-12-02 Thread Jay Savage
On Tue, Dec 1, 2009 at 3:36 PM, David Schmidt zivildie...@gmail.com wrote: [snip] The actual problem is: All the visitors have to be put in one of 4 groups. So for the first 10 minutes visitors go to group #1, next 10 minutes to group #2, ...when all 4 groups have been treated I want to

Re: dcc chat example

2009-11-30 Thread Jay Savage
On Fri, Nov 27, 2009 at 6:29 AM, Shlomi Fish shlo...@iglu.org.il wrote: [snip] Hi Marco, [snip] Net::IRC - DEPRECATED Perl interface to the Internet Relay Chat protocol USE THESE INSTEAD ^ This module has been abandoned and is no longer developed. This release serves only to warn current

Re: do something after time expired

2009-11-30 Thread Jay Savage
On Mon, Nov 30, 2009 at 10:45 AM, David Schmidt zivildie...@gmail.com wrote: Hello I would like to execute some Code after a certain amount of time has passed (then restart the timer but with a different time value) I looked at IO::Async::Timer::Countdown but this timer only gets started

Re: do something after time expired

2009-11-30 Thread Jay Savage
On Mon, Nov 30, 2009 at 1:42 PM, David Schmidt zivildie...@gmail.com wrote: On Mon, Nov 30, 2009 at 5:57 PM, John W. Krahn jwkr...@shaw.ca wrote: David Schmidt wrote: Yes my program has to continue while waiting for the timeout. You code example doesn't work for me because my program is an

Re: Find out if a method calls another method

2009-11-23 Thread Jay Savage
On Mon, Nov 23, 2009 at 11:08 AM, Steve Bertrand st...@ibctech.ca wrote: Hi everyone, I'm curious to know if there is an easy way to scan a list of module files and identify how many subs are calling a different specific sub. I've got a method that must be called once by each and every sub

Re: fun programming problem

2009-11-10 Thread Jay Savage
On Mon, Nov 9, 2009 at 9:22 PM, Matthew Sacks matthewsacks1...@yahoo.com wrote: I am unabashedly posting a quiz question I have about regular expressions: Looking for suggestions. I am thinking 1) make the set of regular expressions into one big expression? 2) search the seach strings,

Re: regex question

2009-11-09 Thread Jay Savage
On Mon, Nov 9, 2009 at 10:25 AM, axr0284 axr0...@yahoo.com wrote: Hi,  I am completely stumped with how to proceed with this. I have a program where the user inputs a path to a file. This is under windows xp The path can be relative ..\..\..\synthesis\int_code.psm

Re: Question on approach

2009-07-27 Thread Jay Savage
On Fri, Jul 24, 2009 at 4:54 AM, Shawn H. Coreyshawnhco...@gmail.com wrote: [snip] Unfortunately, the data is not directly sortable since the date is in American format, not Système International (SI).  SI dates are directly sortable and are the preferred format for storing dates. I would

Re: Having problems getting data back to STDOUT once I assign it to a file

2009-07-21 Thread Jay Savage
On Tue, Jul 21, 2009 at 9:25 AM, Shawn H. Coreyshawnhco...@gmail.com wrote: John W. Krahn wrote: [snip]        close(STDERR);        open(STDOUT , '') || die Unable to open STDOUT: $!; You're not opening STDOUT to anything.  And you closed STDERR so the die message can't go anywhere.  In

Re: building 64 bit perl on solaris intel

2009-06-02 Thread Jay Savage
On Tue, May 26, 2009 at 11:51 AM, Downs, John john.do...@idearc.com wrote:      Greetings!                 Has anyone got this to work? I can build it but it fails miserable on test and will not install.   I get a lot of the below messages. Any ideas?? -john Below is the config

Re: \w regular expressions unicode

2009-04-24 Thread Jay Savage
On Wed, Apr 22, 2009 at 6:12 PM, Chas. Owens chas.ow...@gmail.com wrote: On Wed, Apr 22, 2009 at 17:54, Gunnar Hjalmarsson nore...@gunnar.cc wrote: Chas. Owens wrote: On Wed, Apr 22, 2009 at 15:25, Gunnar Hjalmarsson nore...@gunnar.cc wrote: snip The utf8 pragma affects the whole file,

Re: Global scope

2009-04-24 Thread Jay Savage
please don't top post... On Thu, Apr 23, 2009 at 2:18 PM, Vance E. Neff ven...@intouchmi.com wrote: snip Well it turns out that error was caused by some other problem.  I did not realize that our was not a function.  So you can't do something like this: our $variable = value1 if (something

Re: \w regular expressions unicode

2009-04-24 Thread Jay Savage
On Fri, Apr 24, 2009 at 3:53 PM, Chas. Owens chas.ow...@gmail.com wrote: 2009/4/24 Jay Savage daggerqu...@gmail.com: snip Hmm, I don't think it would reparse the whole file, but it does run in a BEGIN block...hmm, I must test it. It runs in a begin block, but it is still lexically scoped

Re: An image of a swiss-army chainsaw

2009-04-23 Thread Jay Savage
On Mon, Apr 20, 2009 at 6:14 PM, Robert Citek robert.ci...@gmail.com wrote: Hello all, I am giving a presentation soon and will be talking a bit about perl. I'd like to include an image about perl that describes it as the Swiss army chainsaw.  Ideally, I'd like to have a red chainsaw with the

Re: trouble with nested forks() (keep spawning twin process)

2009-04-16 Thread Jay Savage
On Thu, Apr 16, 2009 at 8:32 AM, Michael Alipio daem0n...@yahoo.com wrote: Hi, I have this code: die Could not fork command1! unless defined (my $command1_pid = fork); if ($command1_pid == 0){  open EXTERNAL_PROG1, external_prog1 | or die Can't run external_prog1;  while

Re: calc page's downloading time

2009-04-15 Thread Jay Savage
On Wed, Apr 15, 2009 at 10:02 AM, Chas. Owens chas.ow...@gmail.com wrote: On Wed, Apr 15, 2009 at 09:38,  practicalp...@gmail.com wrote: Greetings, What's the easy way to calculate a webpage's downloading time? (not only the page, but all the elements in this page, like images, JS, css

Re: defined{ness}

2009-03-17 Thread Jay Savage
On Tue, Mar 17, 2009 at 8:16 AM, Dermot paik...@googlemail.com wrote: Hi All, I am unsure if the following statement is going to do what I want. I want to test if there is a value in $hash_ref{'someval'} NOT if the key is defined. I'd also like to avoid un-sightly undefined value errors.

Class::DBI vs DBIx::Class

2009-02-02 Thread Jay Savage
Hi All, I was wondering if someone could point me toward a useful comparison of Class::DBI and DBIx::Class. Going through the docs, they seem to be much of a muchness. Are there any clear advantages to DBIxC? I'm porting a (Maypole-based) webapp to new environment, and I'm toying with the idea of

Re: Was re: inverting List::Compare

2009-01-04 Thread Jay Savage
On Sun, Jan 4, 2009 at 11:45 AM, Bob goolsby bob.gool...@gmail.com wrote: Not 'wrong headed', just a compiler compiler optimization. By putting the declarations before the usage, you reduced the number of complete passes through the source by one and made the parsing code easier. This is an

Re: Perl garbage collector

2008-12-22 Thread Jay Savage
On Mon, Dec 22, 2008 at 12:36 PM, Patrick Kirsch pkir...@bookandsmile.de wrote: Mr. Shawn H. Corey schrieb: On Mon, 2008-12-22 at 18:10 +0100, Patrick Kirsch wrote: Is there a possibility to influence it, to free memory (in the sense of give it back to the OS)? Does your OS have a

Re: controlling the cursor

2008-12-19 Thread Jay Savage
On Fri, Dec 19, 2008 at 3:24 PM, Collaborate tolg...@yahoo.com wrote: I have an application that requires cursor/pointer control as follows: I would like to move the cursor to a specific target location on a web page and then click on a link. I would also like to be able to enter text into

Re: df -mg system() - $variable

2008-12-02 Thread Jay Savage
On Mon, Dec 1, 2008 at 10:18 PM, David [EMAIL PROTECTED] wrote: Thank you to all who helped me get a 6 digit date into perl. I certainly heed warnings about not using outside system calls in perl however, I have to make an outside call again. #!/usr/bin/perl -w use strict; my $fileName =

Re: perl cumulative module question

2008-11-22 Thread Jay Savage
On Sat, Nov 22, 2008 at 10:28 AM, ben perl [EMAIL PROTECTED] wrote: Is there a perl module to find cumulative in a column? It should subtract from the previous row and creates new column. For example, If i have the follow column in my file 2 6 9 It gives me 2 6-2 = 4 9-4 = 2 So the

Re: algorithm permute

2008-11-17 Thread Jay Savage
On Mon, Nov 17, 2008 at 10:13 AM, Sharan Basappa [EMAIL PROTECTED] wrote: 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

Re: when to use variable vs. constant?

2008-11-13 Thread Jay Savage
On Thu, Nov 13, 2008 at 7:08 AM, Mr. Shawn H. Corey [EMAIL PROTECTED] wrote: On Wed, 2008-11-12 at 21:17 -0500, Jay Savage wrote: the only thing you are using the pragma to control is whether the substitution happens at compile time or run time. In most cases, it doesn't make a hill of beans

Re: search and replace

2008-11-12 Thread Jay Savage
On Tue, Nov 11, 2008 at 9:52 AM, [EMAIL PROTECTED] [EMAIL PROTECTED] wrote: Hi I am new to this group and to Perl. [snip] #!/usr/bin/perl -w use strict; If you really have warnings enabled, you should be seeing lots of warnings like bareword found where operator expected pointing at this

Re: when to use variable vs. constant?

2008-11-12 Thread Jay Savage
On Wed, Nov 12, 2008 at 4:10 PM, JC Janos [EMAIL PROTECTED] wrote: Chas, On Wed, Nov 12, 2008 at 12:38 PM, Chas. Owens [EMAIL PROTECTED] wrote: You may want to also look at Readonly*. New one for me. Thanks. $WHOIS1 can be modified (not good) That's an easy point. $WHOIS2 cannot be

Re: Replace a specific block of data

2008-10-27 Thread Jay Savage
On Mon, Oct 27, 2008 at 7:32 AM, Brian [EMAIL PROTECTED] wrote: Hello again Not too sure how to pose this question, but here goes. Working on an html page. There are many blocks of code placed between tr and /tr in the page. The block(s) I am playing with have seven lines of code placed

Re: $o-document vs $o-document()

2008-10-21 Thread Jay Savage
On Thu, Oct 9, 2008 at 6:04 AM, Peter Scott [EMAIL PROTECTED] wrote: On Wed, 08 Oct 2008 04:59:19 -0700, John W. Krahn wrote: oldyork90 wrote: I am using a module having documentation saying document() is a method. However, I see it used as $o-document; Can you reference a method in this

Re: How to check empty hash value properly?

2008-10-08 Thread Jay Savage
On Wed, Oct 8, 2008 at 11:24 AM, Rob Dixon [EMAIL PROTECTED] wrote: Jay Savage wrote: On Tue, Oct 7, 2008 at 4:09 PM, Rob Dixon [EMAIL PROTECTED] wrote: John W. Krahn wrote: Incorrect, delete does not remove array elements: $ perl -le'use Data::Dumper; my @a = a..d; delete $a[1]; print

Re: How to check empty hash value properly?

2008-10-07 Thread Jay Savage
On Tue, Oct 7, 2008 at 4:09 PM, Rob Dixon [EMAIL PROTECTED] wrote: John W. Krahn wrote: [snip] Incorrect, delete does not remove array elements: $ perl -le'use Data::Dumper; my @a = a..d; delete $a[1]; print Dumper [EMAIL PROTECTED]' $VAR1 = [ 'a', undef,

Re: negate a string

2008-10-01 Thread Jay Savage
On Mon, Sep 29, 2008 at 10:21 PM, loke [EMAIL PROTECTED] wrote: On Sep 29, 11:03 am, [EMAIL PROTECTED] (Paul Lalli) wrote: On Sep 28, 3:18 pm, [EMAIL PROTECTED] (Loke) wrote: Hi. I am trying to filter strings which do not have :// in them, I am able to find strings with :// but I want to do

Re: regex count

2008-09-25 Thread Jay Savage
On Wed, Sep 24, 2008 at 10:55 PM, Stephen Reese [EMAIL PROTECTED] wrote: Have a look at the sample data you posted and you will see where. John I believe I found where the ']' needs to go but didn't see any extra ' ' space. The $x count seems off. As I see it every time a regex match is

Re: Array indexing question

2008-07-10 Thread Jay Savage
On Thu, Jul 10, 2008 at 5:59 AM, Anirban Adhikary [EMAIL PROTECTED] wrote: Dear list I want to capture the output of w and then I want to do some job as per the o/p of w command in my linux system. So i have written the code as follows open (LS, w|) or die can't open w: $!; my @arr = LS;

Re: Array indexing question

2008-07-10 Thread Jay Savage
On Thu, Jul 10, 2008 at 8:48 AM, Stephen Kratzer [EMAIL PROTECTED] wrote: Anirban, The output of 'w' is delimited by whitespace, not necessarily a single space. Try passing the pattern '\w+' to split. Something like this: I think you meant the '\s+' pattern. -- j

Re: matching lines like grep

2008-07-09 Thread Jay Savage
On Tue, Jul 8, 2008 at 10:52 AM, Gunnar Hjalmarsson [EMAIL PROTECTED] wrote: Rob Dixon wrote: Noah wrote: Rob Dixon wrote: Then I guess you are processing a file that originated on a Windows system? Windows text files have a CRLF sequence at the end of each record, whereas Unix files

Re: matching lines like grep

2008-07-09 Thread Jay Savage
On Sun, Jul 6, 2008 at 6:57 PM, Noah [EMAIL PROTECTED] wrote: Hi there fellow PERL coders. I am trying to match lines between a template file and a configuration file. If the configuration is missing a particular line that is found in the template file then it is printed. If the

Re: recording with perl

2008-07-08 Thread Jay Savage
On Mon, Jul 7, 2008 at 2:24 PM, Octavian Rasnita [EMAIL PROTECTED] wrote: From: Jay Savage [EMAIL PROTECTED] On Sun, Jul 6, 2008 at 4:37 AM, Octavian Rasnita [EMAIL PROTECTED] wrote: Hi, Does anyone know if there is a perl module that can be used for recording in .wav format? (One

Re: recording with perl

2008-07-07 Thread Jay Savage
On Sun, Jul 6, 2008 at 4:37 AM, Octavian Rasnita [EMAIL PROTECTED] wrote: Hi, Does anyone know if there is a perl module that can be used for recording in .wav format? (One that can be used under both Linux and Windows, or at least under Windows.) Thank you. Octavian Recording what,

Re: @INC and cross-platform path usage

2008-07-02 Thread Jay Savage
On Tue, Jul 1, 2008 at 11:30 AM, Gunnar Hjalmarsson [EMAIL PROTECTED] wrote: Thomas Bätzler wrote: Gunnar Hjalmarsson [EMAIL PROTECTED] wrote: Some would suggest the use of the FindBin module. It does the right thing, but unfortunately it is known to be buggy. Actually, I wish more modules

Re: populating a hash slice from a filehandle

2008-06-23 Thread Jay Savage
On Fri, Jun 20, 2008 at 4:52 PM, Bryan R Harris [EMAIL PROTECTED] wrote: Bryan R Harris wrote: John W. Krahn wrote: Bryan R Harris wrote: John W. Krahn wrote: The left hand side of the assignment determines context so the @l2r{...} part. That strikes me as odd... When perl goes to

Re: Filtered out a IP in a URL

2008-06-19 Thread Jay Savage
On Thu, Jun 19, 2008 at 1:20 AM, luke devon [EMAIL PROTECTED] wrote: Dear Friends, In squid URL-rewriting , I wanted to add some third party parameters to the URL and wanted to filtered out IP which assigned for client ( Client -IP ). Rather than having a shell script , I supposed to do a

Re: Difference between system() and exec() and ``

2008-06-18 Thread Jay Savage
On Wed, Jun 18, 2008 at 4:40 AM, Rob Dixon [EMAIL PROTECTED] wrote: Gunnar Hjalmarsson wrote: Rob Dixon wrote: Gunnar Hjalmarsson wrote: swaroop wrote: As we know there are 3 ways a system shell command to be executed. 1. $var = system(command); 2. $var = exec(command); 3. $var =

Re: Difference between system() and exec() and ``

2008-06-18 Thread Jay Savage
On Wed, Jun 18, 2008 at 4:25 PM, Jenda Krynicky [EMAIL PROTECTED] wrote: Rob Dixon wrote: Gunnar Hjalmarsson wrote: Rob Dixon wrote: Gunnar Hjalmarsson wrote: swaroop wrote: As we know there are 3 ways a system shell command to be executed. 1. $var = system(command); 2. $var =

Re: Converting integer + mantissa to float

2008-06-13 Thread Jay Savage
On Wed, Jun 11, 2008 at 2:19 PM, Rob Dixon [EMAIL PROTECTED] wrote: Jay Savage wrote: I'm having trouble wrapping my brain around this: I am writing a script that will receive two integers as input that represent a single float. The first is the integer part, the second is hat mantissa. How

Re: Converting integer + mantissa to float

2008-06-13 Thread Jay Savage
On Thu, Jun 12, 2008 at 4:45 AM, Dr.Ruud [EMAIL PROTECTED] wrote: Jay Savage schreef: two integers as input that represent a single float. The first is the integer part, the second is hat mantissa. How do I recomine them into a single float? my $float = $int_part . '.' . $matissa; #or my

Re: Program to fetch user information

2008-06-13 Thread Jay Savage
On Fri, Jun 13, 2008 at 11:19 AM, Gunwant Singh [EMAIL PROTECTED] wrote: Hi there, I am still waiting for any suggestions/recommendations. Cheers. please don't top-post. Most people only read this list at most once a day, and frequently less than that. Don't panic if you don't get a

Re: Converting integer + mantissa to float

2008-06-13 Thread Jay Savage
On Fri, Jun 13, 2008 at 1:19 PM, Rob Dixon [EMAIL PROTECTED] wrote: Jay Savage wrote: You're right, the mantissa may have leading zeros. Good catch. I need to keep them, though, or any later math will be off by multiple powers of ten. I'd completely missed that on the first go-around

Converting integer + mantissa to float

2008-06-11 Thread Jay Savage
I'm having trouble wrapping my brain around this: I am writing a script that will receive two integers as input that represent a single float. The first is the integer part, the second is hat mantissa. How do I recomine them into a single float? all I'm coming up with so far is: my $float =

Re: Curses - chgat

2008-05-29 Thread Jay Savage
On 5/28/08, Anchal Nigam [EMAIL PROTECTED] wrote: Does anyone use curses and the method chgat because I am unable to figure out how to use it. I have tried many forms of the method calls and they all compile but none of them do anything. Thanks _Nacho Hi Nacho, You'll be more liekly to

Re: sed split on pipe

2008-05-08 Thread Jay Savage
On Tue, May 6, 2008 at 7:27 AM, Jack Butchie [EMAIL PROTECTED] wrote: Have been googling for some time now and every command I tried fails. I want to use sed from the command line or use it in a windows batch file to split on a pipe delimited file, windows server. The examples have \n as the

Re: Joining/Merging AoA

2008-04-24 Thread Jay Savage
On Tue, Apr 22, 2008 at 2:28 AM, Vishal G [EMAIL PROTECTED] wrote: Hi Guys, I have a little complicated problem... I have two arrays @a = ( ['id', 'name', 'age'], ['1', 'Fred', '24'], ['2', 'Frank', '42'], ); @b = ( ['id', 'sex'], ['1',

Re: Joining/Merging AoA

2008-04-24 Thread Jay Savage
And as this is the Perl beginners list, please don't top post. 2008/4/24 Andrew Curry [EMAIL PROTECTED]: As this is a beginners list are you going to explain... push my @c, [EMAIL PROTECTED] @a}]; push @{$c[0]}, (@{shift @b})[1]; $c[$_-[0]] = [ @{$_} ] while $_ = shift @a;

Re: Trying to splice....

2008-04-10 Thread Jay Savage
On Wed, Apr 9, 2008 at 3:14 PM, [EMAIL PROTECTED] [EMAIL PROTECTED] wrote: [EMAIL PROTECTED] into the middle of @players without removing any elements from @players. so i've done the following... #!/usr/bin/perl -w # extracting elements using splice @players = (ryno, fukudome,

Re: yesterday's time

2008-04-09 Thread Jay Savage
On Tue, Apr 8, 2008 at 6:21 PM, Jenda Krynicky [EMAIL PROTECTED] wrote: From: Jay Savage [EMAIL PROTECTED] You probably meant something more like my $cal_r = [EMAIL PROTECTED],[EMAIL PROTECTED],[EMAIL PROTECTED]; #etc. But see the perlref and perlreftut for more info. It's

Re: yesterday's time

2008-04-08 Thread Jay Savage
On Mon, Apr 7, 2008 at 12:20 AM, Richard Lee [EMAIL PROTECTED] wrote: I just read FAQ on finding out yesterday's time. I see that one of the easy way to find out is my $date = scalar localtime( ( time() - ( 24 * 60 * 60 ) ) ); print $date\n; and it works fine for me I also see lot

Re: questions from Learning Perl

2008-04-07 Thread Jay Savage
On Sun, Apr 6, 2008 at 5:36 AM, [EMAIL PROTECTED] wrote: Hi, I am doing some homework from the book Learning Perl chapter 4 excercise 1, Looking at the script below, I wonder why line 6 (print Enter some numbers on separate line: ;) is not printed immediately after the previous print.

Re: how to extract the last digit

2008-04-03 Thread Jay Savage
On Tue, Apr 1, 2008 at 5:40 PM, Chas. Owens [EMAIL PROTECTED] wrote: 2008/4/1 Jay Savage [EMAIL PROTECTED]: snip my ($last) = $number =~ /.*(\d)/; Let Perl worry about what is and isn't a digit. snip Unfortunately, with the rise of UNICODE, \d is no longer what one expects

Re: how to extract the last digit

2008-04-01 Thread Jay Savage
On Tue, Apr 1, 2008 at 11:09 AM, Rob Dixon [EMAIL PROTECTED] wrote: [snip] my ($lastdigit) = $number =~ /.*([0-9])/; gives you the last decimal digit (even if there are non-decimals after it). Better yet: my ($last) = $number =~ /.*(\d)/; Let Perl worry about what is and isn't a

Re: What counts as a void context in Don't use grep in a void context?

2008-03-27 Thread Jay Savage
On Wed, Mar 26, 2008 at 9:47 PM, Rob Dixon [EMAIL PROTECTED] wrote: Jay Savage wrote: If you want to see grep really shine, though, think about ways you might use it to avoid calling print for every element in the return list, e.g. print join \n, grep {$_ % 2 == 0} @list

Re: What counts as a void context in Don't use grep in a void context?

2008-03-27 Thread Jay Savage
On Thu, Mar 27, 2008 at 2:22 PM, Rob Dixon [EMAIL PROTECTED] wrote: Yes I understood your intention, but efficiency isn't everything by any means. I believe very firmly that programs should be coded in the clearest and most obvious way possible, then tested and optimised if the

Re: What counts as a void context in Don't use grep in a void context?

2008-03-26 Thread Jay Savage
On Tue, Mar 25, 2008 at 11:00 PM, Telemachus [EMAIL PROTECTED] wrote: This came up somewhere else, people disagreed and now I can't see it clearly anymore. Imagine you have an array filled with numbers, and you only want to print out the even ones. Fine, someone says, use grep. print

Re: What counts as a void context in Don't use grep in a void context?

2008-03-26 Thread Jay Savage
On Wed, Mar 26, 2008 at 9:10 AM, Telemachus [EMAIL PROTECTED] wrote: On Mar 26, 8:24 am, [EMAIL PROTECTED] (John W. Krahn) wrote: snip Telemachus wrote: So in a context like this, would the following be better? for my $num (@testAr) { if (($num % 2) == 0 ) {

Re: How do I dynamically adjust to CSV format?

2008-03-26 Thread Jay Savage
On Tue, Mar 25, 2008 at 9:22 PM, Dennis G. Wicks [EMAIL PROTECTED] wrote: Greetings, I get data in CSV files from several different sites and I can't get the date/time formats to be consistent, let alone have the fields arranged in the same order. Dennis, First of all, I wouldn't

Re: xml::twig help

2008-03-17 Thread Jay Savage
On Mon, Mar 17, 2008 at 9:55 AM, Ken Foskey [EMAIL PROTECTED] wrote: I am extracting addresses from an XML file to process through other programs using pipe delimiter the following code works but this is going to get 130,000 records through it it must be very efficient and I cannot follow

Re: Making variables private

2008-03-06 Thread Jay Savage
[please don't top post] On Thu, Mar 6, 2008 at 10:50 AM, yitzle [EMAIL PROTECTED] wrote: I don't know much about how Perl deals with this stuff, but what you've done is made a copy of the pointer/reference. Both variables are referencing the same memory/hash. What you want to do is copy

Re: comparing some but not all fields in lists

2008-03-04 Thread Jay Savage
On Mon, Mar 3, 2008 at 5:32 PM, David Newman [EMAIL PROTECTED] wrote: Greetings. I'm looking to compare two contact lists in csv format, and then print out here are the records in in Llist only, in Rlist only, and what's in common. I should compare only 3 of the 82 fields in each list.

Re: Data file from one format to another.

2008-02-28 Thread Jay Savage
On Wed, Feb 27, 2008 at 9:27 PM, Nobody Imparticular [EMAIL PROTECTED] wrote: Hi any and all; I am having a heck of time getting my head around a little problem I have run into; I got this question during an interview recently and, well, failed miserably. Now I am crazy to figure out

Re: Printing text between two blank lines

2008-02-22 Thread Jay Savage
On Fri, Feb 15, 2008 at 4:04 PM, [EMAIL PROTECTED] wrote: I've been trying to use regular expressions or some kind of counter thing, but I can't seem to work this right. I have data in a text file where the important thing I want to extract is between two blank lines. That's the only

Re: Send a file

2008-02-19 Thread Jay Savage
On Feb 19, 2008 7:15 AM, Beginner [EMAIL PROTECTED] wrote: Hi, I am trying to send a file in response to a request but am having trouble. Here's what I have so far. I am not certain what the headers should be. I am not getting any more info from my error_log except Premature end of script

Re: cgi upload - XMLin

2008-02-13 Thread Jay Savage
On Feb 13, 2008 12:52 AM, Brent Clark [EMAIL PROTECTED] wrote: Chas. Owens wrote: The XMLin method takes a string, file, or file handle as its argument. Just pass $upload_filehandle to it: my $ref = $xs-XMLin($cgi-upload(filename)); print $xs-XMLout($ref); Hi Thanks for replying.

Re: Help on perl alarm

2008-02-08 Thread Jay Savage
On Feb 7, 2008 1:43 PM, [EMAIL PROTECTED] wrote: On Feb 5, 9:26 pm, [EMAIL PROTECTED] (Rob Dixon) wrote: Can you see now why you're getting a syntax error? But your concept is far too convoluted. You have a Perl process that's shelling out to another Perl process, that in turn is

Re: Help on perl alarm

2008-02-05 Thread Jay Savage
On Feb 5, 2008 10:22 AM, [EMAIL PROTECTED] wrote: I am using perl alarm within a script and having an issue. I want to access a host by first trying rsh and if that fails use ssh. I can get the command to run with only one of the commands but when I add both it fails. I must be missing

Re: About File::Monitor

2008-01-29 Thread Jay Savage
On Jan 25, 2008 12:20 PM, [EMAIL PROTECTED] wrote: Jay Savage [EMAIL PROTECTED] writes: Finally, Tom's points are important. How do you *know* that the files (in this case a single directory) changed *during the sleep*? Do you know that the output wasn't buffered? That the system didn't

Re: About File::Monitor

2008-01-24 Thread Jay Savage
On Jan 24, 2008 3:34 PM, [EMAIL PROTECTED] wrote: What I really want to do is monitor a directory recursively but here just trying to use it any basic way to start to `get' how to use it. For starter, you haven't turned on the recurse flag. Take another look at the arguments to

Re: regexp for two quotes

2007-12-24 Thread Jay Savage
On Dec 22, 2007 3:38 AM, Dermot [EMAIL PROTECTED] wrote: On 22/12/2007, Jay Savage [EMAIL PROTECTED] wrote: On Dec 20, 2007 3:54 AM, Dr.Ruud [EMAIL PROTECTED] wrote: Rob Dixon schreef: Dr.Ruud wrote: Jay Savage schreef: Corin Lawson wrote: I also think you may

Re: regexp for two quotes

2007-12-21 Thread Jay Savage
On Dec 20, 2007 3:54 AM, Dr.Ruud [EMAIL PROTECTED] wrote: Rob Dixon schreef: Dr.Ruud wrote: Jay Savage schreef: Corin Lawson wrote: Can you not simply count the number of quotes mod 2? No, you can't just count the number of quotes. An even number of quotes doesn't mean they're all

Re: out to keyboard

2007-12-19 Thread Jay Savage
On Dec 18, 2007 1:28 PM, Ryan [EMAIL PROTECTED] wrote: Here's something I've never done before and I need some help. I want to control a terminal program that is proprietary and Curses and such won't work. So instead I'd like to have my perl program output chars to the keyboard or mouse port

Re: regexp for two quotes

2007-12-19 Thread Jay Savage
Please don't top post... On Dec 18, 2007 6:41 PM, Corin Lawson [EMAIL PROTECTED] wrote: Hi ab, Can you not simply count the number of quotes mod 2? No, you can't just count the number of quotes. An even number of quotes doesn't mean they're all double quotes. Consider something like

Re: regex, 1 off...

2007-12-17 Thread Jay Savage
On Dec 16, 2007 2:21 PM, namotco [EMAIL PROTECTED] wrote: Let's say I want to search some text for abc123. However, we know people can make typos and so they could have entered avc123 or abc223 or sbc123 or bc123 many other combinations... So I want to search for those possibilities as well.

Re: Perl loop

2007-12-14 Thread Jay Savage
On Dec 14, 2007 9:00 AM, [EMAIL PROTECTED] wrote: Thanks Jeff. How will this be considered. if(system(CondA) system(CondB)) ... I am getting 0 as the $? RC...but goes to the else part of the if-statement. Both the conditions (Unix commands are executed). Is it taking the CondB RC?

Re: Meta: please don't mail here if you have huge useless pointless disclaimers (was Re: SOH char)

2007-11-14 Thread Jay Savage
punish people for their employers' sins. -- Jay Savage -- This email and attachment(s): [ ] blogable; [ x ] ask first; [ ] private and confidential daggerquill [at] gmail [dot] com http://www.tuaw.com http://www.downloadsquad.com http

Re: Getting error in Net::SFTP with get function

2007-11-01 Thread Jay Savage
On 10/31/07, Tom Phoenix [EMAIL PROTECTED] wrote: [snip] The docs could always be more clear. The right operand of an or-operator does inherit the context of the operator itself. But the left operand's context is always Boolean. Thanks for clearing that up! Given that, I would expect, from

  1   2   3   4   5   >