Re: How to compare timestamp in two different files(regex)

why post a python solution here? On Thu, Oct 25, 2018 at 8:58 AM Asad wrote: > Hi , > > Yes i have the code : > > import re > import datetime > from datetime import timedelta > > Header = "*" > > f3 = open ( r"D:\QI\logA.txt", 'r' ) > string =

Re: How to compare timestamp in two different files(regex)

I cannot emphasize enough how fragile the perhaps obvious regex based comparisons of timestamps can be. I second the approach demonstrated by Илья Рассадин above. There are subtle and difficult to debug problems buried in timestamps. Not least of which is locale ambiguity, discontinuities like da

Re: Regex for date

"Asad" wrote in message news:cag3lskh4dphjg18c-jxmo8bcqfd+vix5tep1ytsp4_6pd6z...@mail.gmail.com... Hi All , I need a regex to match the date : Sat Aug 25 08:41:03 2018 and covert into a format :'%m/%d/%Y %H:%M:%S' Thanks, -- Asad Hasan +91 9582111698 Hello Asad, You co

Re: perlbrew and cron

You have to make sure that the cron job has the right path. Usually it can be as easy as calling a wrapper script that sets up the correct environment. On Thu, Dec 7, 2017 at 1:38 PM, SSC_perl wrote: > After moving to a VPS, I'm finally able to use perlbrew to use the > latest perl, but

Re: How to use Text::Wrap correctly

I have a utility I use to wrap logging lines and make them easier to look at. It has different features than you want but down in the core might be a few clues of some use. Without options it generates output like the below: $ wrap /var/log/mail.log Aug 23 10:39:52 crf postfix/pickup[12668]:

Re: DBI and hosts file entries

first you want to be sure that your host can connect to the remote host onn the right port. You can use the telnet command to do that telnet server port where server is the name for the server in your /etc/hosts file and port is the port number on the remote where sybase is listening. iirc

Re: Warnings when sorting by hashref

eys %options This code is untested but maybe you see the idea. chris On Tue, Apr 11, 2017 at 7:13 AM, Mike Martin wrote: > Hi > > I have the following code as an example against a hash of hashes, to sort > by hashrf key > > foreach my $opt (sort {uc($options{$b}->{type}

Re: Using PerlPod creatively

sing Perl PoD to comment out code ? Thats why i wanted > help decrypting that. > > Thanks > > On Thu, Mar 30, 2017 at 8:41 AM, Chris Fedde wrote: > >> Ahamedee1. >> >> The little aphorism "It's always the middle of the story" is just a >> reminder

Re: Using PerlPod creatively

Three pieces of advice: One: Remember the Kübler-Ross model: denial, anger, bargaining, depression, acceptance. Two: SQL is going to be a part of Information technology for a long time. Three: It's always the middle of the story. chris On Fri, Mar 24, 2017 at 1:17 AM, Sami Joseph

Re: [OT] app (ncurses?) mechanizer?

About as close as you can get is via the Expect module. It provides ways to interact with interactive programs. https://metacpan.org/pod/Expect There are other ways. One way is to use the POE module. But that is a much more complex approach. By the way, in my opinion this is not OT. :-) chris

Re: How to get a called perl script to write output to a file with DIFFERENT user:group than the calling app?

Other comments on this question discuss elevating user permissions via suid, sudo the setuid bit and so on. There are good reasons to need to create files with owner/group that are different from your own, they usually come up in system administration situations. Most common situation where access

Re: suggestion for print format string based on configuration

very much a minor issue. BTW you are right to avoid formats. chris On Tue, Jan 3, 2017 at 2:35 AM, Luca Ferrari wrote: > Hi all, > I've a program that needs to print some fields formatted in different > ways according to some conditions. > The solution I come up is working,

Re: event driven daemon

Sorry for the late reply. I was enjoying some non computer time between the holidays. Good to see that your project is making progress. It seems to me that you have chosen a reasonable implementation scheme. I'll be interested to hear how it works out. chris On Thu, Dec 22, 2016 at 9:

Re: event driven daemon

main architectural approach is how close the coupling needs to be between the requester and the worker. One of my favorite, simple approaches is to put files into a directory. Each file represents a tasks and perhaps contains interesting metadata. chris On Wed, Nov 23, 2016 at 7:36 AM, Gary

Re: calculate within a loop

""Chris Charley"" wrote in message news:20160912202839.22177.qm...@lists-nntp.develooper.com... "Nathalie Conte" wrote in message news:9d0654e0-8ec0-4051-87ca-541f90931...@ebi.ac.uk... Dear all, Thanks a lot for the codes various people which all work per

Re: calculate within a loop

""Chris Charley"" wrote in message news:20160912202839.22177.qm...@lists-nntp.develooper.com... "Nathalie Conte" wrote in message news:9d0654e0-8ec0-4051-87ca-541f90931...@ebi.ac.uk... Dear all, [snip] many thanks again for any tips/help, Nathalie [Chri

Re: calculate within a loop

"Nathalie Conte" wrote in message news:9d0654e0-8ec0-4051-87ca-541f90931...@ebi.ac.uk... Dear all, Thanks a lot for the codes various people which all work perfectly!! I have also discover some useful functions (eval and state) which can also be very helpful for this kind of data. In the li

Re: if element exists in an array

Here is one approach using a perl repl. re.pl $ my @x = qw(3 1 4 2 9 0) $VAR1 = 3; $VAR2 = 1; $VAR3 = 4; $VAR4 = 2; $VAR5 = 9; $VAR6 = 0; $ grep {$_ == 4} @x and 'true' grep {$_ == 10} @x and 'true' or 'false' On Thu, Aug 18, 2016 at 7:35 PM, wrote: > Hello, > > What's the better way to decide

Re: IPv4/IPv6 parsing

regexp checking the amount of "." vs. the amount of ":" characters I guess. IPv4 = 3 dots + 1 colon, whilst IPv6 = at least two colons and one dot. Once you know whether you're dealing with IPv4 or IPv4, a simple split() would be enough to cut the port... The question is more towards determining reliably what you're working with. -- Chris.

IPv4/IPv6 parsing

x I guess, but them regex'es ain't one of my strong points. -- Regards, Chris Knipe

Re: having trouble understanding the built-in Perl sort with regards to mixed numbers and strings

return from compare illustrates Shalomi Fish's point about using the "||" operator to compose sort fields. Descending numeric order is done by reversing the comparison on that sub field. chris - cut - #!/usr/env/bin perl use strict; use warnings; my @x = ; sub compare {

Cache::*

Response = $Cache->get($Data); if ($Response && $Response ne "") { $ClientConnection->send($Response); $Cache->remove($Data); $Processed=1; } } until ($Processed==1 || time() - $TimeStamp >= 2); } } } } } -- Regards, Chris Knipe

Re: Regex to match "bad" characters in a parameter

)/) { print "Bad id: <$id>\n"; } } __DATA__ itemid=AT18C&i_AT18C=1&t=main.htm&storeid=1&cols=1&c=detail.htm&ordering=asc c=detail.htm&itemid=AT18C itemid=AT18/C t=main.htm&storeid=1&cols=1&c=detail.htm&ordering=asc itemid=?AT18C

Re: reading from socket

> > > Hello Chris. > > Can you provide the yenc files? > Both the good one and the bad one? > http://expirebox.com/download/f7ebd6e37cf576e29df89bb6ae78ded4.html - Includes the two original files (text document, and binary image) - Includes the yEnc version of both files

RE: reading from socket

m? *completely, lost* -Original Message- From: Chris Knipe [mailto:sav...@savage.za.org] Sent: Thursday, September 17, 2015 10:56 PM To: 'beginners@perl.org' Subject: RE: reading from socket Hi All, I'm SERIOUSLY starting to cry here :-( It's been over a month

RE: reading from socket

oesn't like, which IMHO means something is manipulating / changing the data is some way or form... The above code really is simple, there's no changing of data there -- Chris. -----Original Message- From: Brandon McCaig [mailto:bamcc...@gmail.com] Sent: Wednesday, August 1

Re: reading from socket

On Wed, Aug 12, 2015 at 12:16 AM, Chris Knipe wrote: > Lines *should* be terminated by CRLF (provided the 8-bit encoding doesn't > mess up the detection), and the entire data stream is then terminated with > a CRLF.CRLF (similar to a SMTP message for example in terms of protoco

Re: reading from socket

the server stops transmitting data and waits for the next command, so there's no chance that a second data stream may be received by the client socket, at least not until the client socket issues a new command. > Does any of that help? > > I appreciate it, truly. But no, not really :-( I can honestly say, been there, done that. I realize my problem here is the really whacky way in which the data stream is encoded (and that is completely out of my control). But there must be a adequate and proper way to handle this data. -- Regards, Chris Knipe

Re: reading from socket

On Tue, Aug 11, 2015 at 5:28 PM, John SJ Anderson wrote: > On Tue, Aug 11, 2015 at 6:58 AM, John SJ Anderson > wrote: > >> On Tue, Aug 11, 2015 at 5:24 AM, Chris Knipe >> wrote: >> >>> >>> >>> my $numBytesToRead = 512; >>> >&

reading from socket

is wrong :( Can anyone perhaps show me the light? -- Chris.

Re: UTF8, UTF-8, utf8, Utf8 encoding blues

big application (and it worked fine for about a year and a half before all of a sudden just acting up for some reason). I won't be surprised if this is a OS issue even. -- Regards, Chris Knipe -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

UTF8, UTF-8, utf8, Utf8 encoding blues

Hi All, I'm reading loads, and loads of very confusing and contradicting information about UTF8 in Perl. A lot of posts are also (rightfully IMHO) stating that UTF8 is an absolute nightmare in Perl. Can someone shed some light as to what is going on here please: use Encoding; SysLog("debug",

Re: async, non blocking tcp server

ould be handled via threads - but it's done and managed by the .NET modules, and thus require -very- little code, or understanding for that matter, from the programmer's point of view). Oh well - it's back to the drawing board for this one then. -- Regards, Chris Knipe --

Re: async, non blocking tcp server

On Fri, Aug 29, 2014 at 10:43 AM, Carl Inglis wrote: > Hi Chris, > > The only way this is going to work as far as I can see is some form of > multi-threading - how about you have a thread which issues the commands, a > thread which reads from the sockets and shoves the results in

Re: async, non blocking tcp server

And this is effectively what I WANT to happen... [C] TAKETHIS [C] Path: pathost!demo!somewhere!not-for-mail [C] From: "Demo User" [C] Newsgroups: misc.test [C] Subject: I am just a test article [C] Date: 6 Oct 1998 04:38:40 -0500 [C] Organization: An Exa

Re: async, non blocking tcp server

On Fri, Aug 29, 2014 at 10:10 AM, Carl Inglis wrote: > I suspect you're looking for something like this: > http://www.perlmonks.org/?node_id=66135 > > In fact, it's specifically mentioned in the Perl Cookbook: > http://docstore.mik.ua/orelly/perl/cookbook/ch07_15.htm The comments on the first URL

Re: async, non blocking tcp server

On Fri, Aug 29, 2014 at 1:18 AM, Sam wrote: > Are you saying the normal 'unix' way won't work? (ie. listen on socket, fork > on an accepted connection, do the work, close) Oh - and yes, if that is the 'unix' way, then yes, it's unacceptable. The socket CANNOT be torn down after each and every sin

Re: async, non blocking tcp server

On Fri, Aug 29, 2014 at 1:18 AM, Sam wrote: > Are you saying the normal 'unix' way won't work? (ie. listen on socket, fork > on an accepted connection, do the work, close) Not at all. My problem is not related to creating, accepting, or forking at all. The block / waiting occurs whilst the soc

async, non blocking tcp server

7;re developing / debugging currently, whilst in production we currently use xinetd). Many thanks, Chris.

Re: Date::Parse and strange dates

On Fri, Jul 25, 2014 at 7:12 PM, Andy Bach wrote: > > On Fri, Jul 25, 2014 at 11:54 AM, Chris Knipe wrote: >> >> Thu, 23 Oct 2008 12:06:48+0400 >> >> >> >> Note the lack of a space between the seconds and the timezone. > > > Well, depending u

Date::Parse and strange dates

rrors out. The formats in question that I can't parse basically looks like Thu, 23 Oct 2008 12:06:48+0400 Note the lack of a space between the seconds and the timezone. Is there a simple quick way to fix that by means of a regex? Many thanks, Chris.

Re: Problem installing a module

On Wed, 2014-07-23 at 21:25 -0500, Chris wrote: > On Thu, 2014-07-24 at 02:23 +1200, Kent Fredric wrote: > > > > > > > > On 24 July 2014 02:06, Sam wrote: > > > > > > Can you post those changes or a link to the mailing list

Re: Problem installing a module

gt; > KENTNL - https://metacpan.org/author/KENTNL > > Kent, here are the changes as attachments. The only changes were in the 't' folder. -- Chris 31.11°N 97.89°W (Elev. 1092 ft) 21:21:03 up 3 days, 3:35, 1 user, load average: 0.34, 0.22, 0.23 Ubuntu 14.04 LTS, kernel 3.13.0-32-ge

Re: Problem installing a module

> KENTNL - https://metacpan.org/author/KENTNL > Kent, I've forwarded this to the person who assisted me with the changes. Hopefully he'll take up the challenge. I'll be posting the changes I made here in a few, however, there are still problems getting it to work. Chris

Re: Problem installing a module

On Wed, 2014-07-23 at 09:06 -0500, Sam wrote: > On 07/23/2014 07:53 AM, Chris wrote: > > On Thu, 2014-07-24 at 00:28 +1200, Kent Fredric wrote: > >> > >> On 22 July 2014 06:05, Chris wrote: > >> I'm not a programmer so I apologize if I&

Re: Problem installing a module

On Thu, 2014-07-24 at 00:28 +1200, Kent Fredric wrote: > > On 22 July 2014 06:05, Chris wrote: > I'm not a programmer so I apologize if I'm on the wrong list > but I'm > looking for some assistance in installing File::Scan::ClamAV. >

Problem installing a module

et this installed so I can interface SpamAssassin with ClamAV. Any help or advice would be appreciated. This is being installed on a Ubuntu 14.04 LTS box. Thank you Chris -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: question on escaping shell command

adius instead, and it seems to be working better. -- Chris. On Fri, May 16, 2014 at 10:54 AM, Simon Foutaiz wrote: > You can take a look at the IPC::Cmd module that should remove some pain when > dealing with system commands through Perl. > > https://metacpan.org/pod/IPC::Cmd >

question on escaping shell command

NAS-IP-Address = 10.255.255.245 NAS-Port-Type = Virtual Service-Type = Authenticate-Only User-Name = " u...@domain.com" User-Password = "!@" Realm = "DEFAULT" The problem is a shell problem rather than a perl problem, I

Net::Server and SSLEAY issues

und SSL_key_file => "/home/cknipe/src/server.key", # SSL Private Key SSL_cert_file => "/home/cknipe/src/server.crt", # SSL Public Certificate ); Would appreciate it if anyone can perhaps shed some light for me. Thanks, Chris.

Parsing a email attachment over SSL

gt;search({SUBJECT => $subject, ON => $today}); my @messages = $imap->search("SUBJECT => $subject, ON => $today"); but none of these worked. How can I search on multiple criteria using Mail::IMAPClient? Thanks, Chris

issue with threaded IO::Socket::INET

n# ./threads Starting Fetcher Thread: 17963.1 Waiting for Queue Listeners to become ready... Starting Fetcher Thread: 17963.2 OK: Tread: 17963.001, Time: 1.212, Ready to work OK: Tread: 17963.002, Time: 1.210, Ready to work Connection received from 198.19.255.3:37991 root@NNTPWEB01:/srv/nntp/bi

Battling with threaded TCP server

fer to rather take this off list and spend half an hour or an hour with an individual able to assist (just don't want to sit here spamming the lists). At this stage, I'm even willing to pay if that's what it needs to come down to... Many thanks, Chris. -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

IO::Socket::SSL replacement for IO::Socket::INET

ClientSocket = $Port563->accept()) { my $Child; SysLog('err', 'Server failed to fork: ' . $!); die "Can't fork: $!" unless defined ($Child = fork()); # Script errors here. $! contains empty string if ($Child == 0) { $Port563->close; &

Re: Does perl hava free edition for AIX, Solaris?

r...@linuxstuff.pl wrote: > On Mon, Mar 18, 2013 at 07:20:37PM GMT, Hal Wigoda wrote: >> Any version of Sun Solaris should already come with the current Perl. > I guess that depends what you mean by "current" Version 5 ;-) -- To unsubscribe, e-mail: beginner

Re: anonymous array for loop

On Sat, Mar 9, 2013 at 2:57 PM, Brandon McCaig wrote: > On Sat, Mar 09, 2013 at 07:24:37AM -0600, Chris Stinemetz wrote: > > Each anonymous array @files and @newFiles has 5 total elements. > > Just to nitpick, @files and @newFiles are not anonymous arrays. > They are just array

Re: anonymous array for loop

;t put files: @$file[0] \t @$file[1] $!"; } Thanks, Chris

anonymous array for loop

Thank you in advance. Each anonymous array @files and @newFiles has 5 total elements. How can I alter this nested for so that just the unique elements are printed instead of each element twice? foreach my $file (@files) { foreach my $newFileName ( @newFiles ) { print join( "\t", @$file, @$ne

Net::FTP

x27;t allow ":" in the file name. Any help is appreciated. Thank you, Chris

large files

shown below: It helped greatly by only taking a little over 1 minute but I am curious if there is a way to still improve the time to read in the file or is this a reasonable time. while (<>) { chomp($_); my @tokens = split( ";", $_, 44 ); } Thank you, Chris

printf

$sest,$fit,$psEst,$catt,$cest,$pcEst,$rfLost, $cpDropCell,$cpDropRnc,$tuneAway,$tDrops,$pDcr,$ia,$pIa,$tccf,$failAp,$failTp,$failA10,$failAAA,$failPDSN; Thank you, Chris

Re: am I missing something?

Hi, Was an issue somewhere else in my code. Been using an $counter to keep track of the records and I executed next without incrementing the counter. Sorry guys :) On Sun, Mar 3, 2013 at 11:43 AM, wrote: > > > -Original Message----- From: Chris Knipe > >>

am I missing something?

that 'next' is behaving like 'last' in this example. What would be the correct way to do this? -- Chris. -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: nested subroutines

Sent from my iPhone On Mar 2, 2013, at 7:49 PM, "John W. Krahn" wrote: > Chris Stinemetz wrote: >> Thanks in advance. >> >> I have a subroutine inside another subroutine in a module I am tyring to >> put together. >> >> I would like to pas

nested subroutines

y($_cs, $_t) = @_; $_t->{$_cs}{$pegs[0]} += session_attempts($srt); } Chris

Re: separating code in two files

On Fri, Mar 1, 2013 at 3:37 PM, Chris Stinemetz wrote: > > > On Fri, Mar 1, 2013 at 11:00 AM, Shlomi Fish wrote: > >> Hi Jim, >> >> On Thu, 28 Feb 2013 11:21:59 -0800 >> Jim Gibson wrote: >> >> > >> > On Feb 28, 2013, at 10:31

Re: separating code in two files

On Fri, Mar 1, 2013 at 11:00 AM, Shlomi Fish wrote: > Hi Jim, > > On Thu, 28 Feb 2013 11:21:59 -0800 > Jim Gibson wrote: > > > > > On Feb 28, 2013, at 10:31 AM, Chris Stinemetz wrote: > > > > > I want to put a hash declaration in a separate file from

Re: separating code in two files

scope within perl.pl. Using 'our' instead of 'my' makes %hash > a package variable (in package main::), and as such is accessible by both > perl.pl and lib.pl, The 'our' declaration also lets you leave off the > package name when you access the variable. > > > Thank you very much! That did the trick. Chris

separating code in two files

I want to put a hash declaration in a separate file from the main script. How do I do this correctly? perl.pl ( main script ) #!/usr/bin/perl use warnings; use strict; use Data::Dumper; require "lib.pl"; print Dumper \%hash; lib.pl ( library script ) #!/usr/bin/perl use warnings; use strict;

Re: matching certain lines

On Sun, Feb 10, 2013 at 8:05 AM, Chris Stinemetz wrote: > To take this a step further. > > How would you go about creating a hash to sum up all the values in group > $3 utilizing the flip/flop operator and print the results of the key and > value with the key being group $2? >

Re: matching certain lines

To take this a step further. How would you go about creating a hash to sum up all the values in group $3 utilizing the flip/flop operator and print the results of the key and value with the key being group $2? Thank you, Chris while( ) { if ( /0x3\|68\|/ .. /^#END/ ) { print if

Re: matching certain lines

Thank you everyone for you help. -Chris On Sat, Feb 9, 2013 at 5:15 PM, Uri Guttman wrote: > On 02/09/2013 03:59 PM, John W. Krahn wrote: > > >> Let's re-factor that down to its essence: >> >> while ( ) { >> print if /\|68\|/; >>

matching certain lines

I would like to only work with the data that has a line with |68| in it print that line and then print each subsequent lines in that match /\|7\|\d+\|\d+/ until #END is reached and then repeat for the rest of the input data. Below is what I have attempted. Thanks in advance. Chris #!/usr/bin

Re: other ways to parse emails from html?

""Chris Charley"" wrote in message "Jeswin" wrote in message news Hi again, I tried to use the treebuilder modules to get emails from a webpage html but I don't know enough. It just gave me more headaches. My current method get the emails is to go

Re: other ways to parse emails from html?

ill be happier with an editor made for programmers. Chris -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: Pattern matching to hash

"timothy adigun" wrote in message news:CAEWzkh6mZohVJn__LRL60AGoqbHkmTPyn=JM=cewcmmftpj...@mail.gmail.com... Hello Chris, Please see my comment below. On Fri, Dec 28, 2012 at 10:24 PM, Chris Charley wrote: [snip] I only answered the question using a for loop. Am not t

Re: Pattern matching to hash

Chris Charley"" wrote in message news Tim wrote in message news:1356726727.215915...@webmail.reagan.com... I hope this is a simple fix. I want to check the beginning characters of items in a hash, and compare that to a scalar variable. I do not need for the entire value to match

Re: Pattern matching to hash

le () { print if /^$prefix_search_list/; } __DATA__ 05S885858 03S84844 foo bar 04Sbaz *** prints C:\Old_Data\perlp>perl t1.pl 03S84844 04Sbaz Hope this helps, Chris -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: hash help !

"jet speed" wrote in message news:CAG1VzcezebNiFar3YKep- What i am trying to do ? I want to match the entries from file1.txt with file.txt, if matches then print the key and value. some will have multiple entries as in the output. required output 10.00.00.00.aa.56.9b.7a 22:5a 10.00.00.00.

Re: hash help !

"jet speed" wrote in message news:CAG1VzcezebNiFar3YKep- What i am trying to do ? I want to match the entries from file1.txt with file.txt, if matches then print the key and value. some will have multiple entries as in the output. required output 10.00.00.00.aa.56.9b.7a 22:5a 10.00.00.00.

Re: hash help !

"jet speed" wrote in message news:CAG1VzcezebNiFar3YKep- What i am trying to do ? I want to match the entries from file1.txt with file.txt, if matches then print the key and value. some will have multiple entries as in the output. required output 10.00.00.00.aa.56.9b.7a 22:5a 10.00.00.00.

Re: delete blank lines from text file

On Mon, Oct 1, 2012 at 3:34 AM, Irfan Sayed wrote: > hi, > > i need to delete all blank lines from the text file > > I usually just skip the blank lines when I read the data one line at a time. Then you can print to a new file. My example is below: #!/usr/bin/perl use 5.010; use strict; use war

Re: milliseconds converted to timestamp

On Thu, Sep 27, 2012 at 10:46 AM, Jim Gibson wrote: > > On Sep 27, 2012, at 8:16 AM, Chris Stinemetz wrote: > >> Hello List, >> >> I have the following millisecond value: 54599684 >> This represents a timestamp reported as milliseconds past midnight local &g

milliseconds converted to timestamp

Hello List, I have the following millisecond value: 54599684 This represents a timestamp reported as milliseconds past midnight local time. Is there a module to convert this into a hh::mm format? Or a Perlish example to handle this? Thank you, Chris -- To unsubscribe, e-mail: beginners

Re: how to deal with columns in perl

Sorry forgot you wanted the average. Revised program is below: #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my %hash; my $counter; while ( my $line = ) { my @record = split( /\s+/, $line ); ## check to see if we've already added the 3rd column to the hash ## if we

Re: how to deal with columns in perl

t; > I would like to calculate the average value of column 2 while the content of > column three is the same. In this case, I would like the output of my result > be as follows: > R^2 genename > 0.3899163577POPTR_0002s00200 > 0.2314956035POPTR_0002s00210 > Mayb

Re: Perl Code

> > > > i've never seen anyone do it correct in production. Unless they use Email::Valid or Email::Address. I'm sorry you haven't had the opportunity to work with people who are clueful about email. -- Chris Nehren | Coder, Sysadmin, Masochist Shadowcat Systems

Re: socket port

Thank you so much Jim. -Chris

Re: socket port

Thank you Peng. Are there any other suggestions from the list? Thanks in advance, Chris

Re: Perl Code

sn't know Perl or regular expressions if they're asking for those things to be done with only regex. At least three items on that list are best done with CPAN modules. My advice is to drop the class now and get a refund, if at all possible. -- Chris Nehren | Coder, Sysadmin, Masochist Shadowcat Systems Ltd. | http://shadowcat.co.uk/ pgpZ0Q9z5gjRm.pgp Description: PGP signature

socket port

my $item (@array) { print join(",",@$item),"\n"; } Thanks in advance, Chris -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: greater circle

ll practical > purposes, it IS zero. > Thank you for the great explanation. Yes that is close enough to 0 for me :) Thanks again. -Chris -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: greater circle

sr/bin/perl use strict; use warnings; use feature qw(say); use Geo::Ellipsoid; my $lat1 = 39.316858; my $lat2 = 39.316858; my $lon1 = -94.963194; my $lon2 = -94.963194; my $ellipsoid = Geo::Ellipsoid->new(units=>'degrees', dist=>'miles'); say $ellipsoid->range($lat1,$lon1,$lat2,$lon2); If it is the expected outcome would you please explain why? Thank you, Chris -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

greater circle

Hello List, I'm tyring to find the distance in miles between two sets of coordinates by using the module Math::Trig I'm expecting the return distance to be around 16.91 miles. Any help is greatly appriciated. Chris #!/usr/bin/perl use strict; use warnings; use Math::

array element access

at form.pl line 167. Execution of form.pl aborted due to compilation errors. Press any key to continue . . . Thank you in advance, Chris -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: grep array of arrays

], [ 1, 2, '200', '65', undef ], Thanks for you time, Chris -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

grep array of arrays

ement: print grep { $_->[0][0] >= 0 } @coords; Any idea what I am doing wrong? Thank in advance, Chris -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: hash of arrays sorting

eys %hash ) { print join( "\0", @{ $hash{$cellNo} } ),"\n"; } -Chris

Re: hash of arrays sorting

On Tue, Aug 21, 2012 at 3:11 PM, Shawn H Corey wrote: > On Tue, 21 Aug 2012 15:05:33 -0500 > Chris Stinemetz wrote: > > > I am trying to sort a hash of arrays ( example below: ) > > > > I would the sort to sort in ascending order the first index of the > > a

hash of arrays sorting

'90' ], '97-2' => [ '97', '2', '120', '65' }; Thanks in advance, Chris

  1   2   3   4   5   6   7   8   9   10   >