Re: [announcements mailing list]

2024-03-20 Thread Mike
I am subscribed to the Perl Weekly: https://perlweekly.com/ Mike On 3/15/24 06:27, Maxim Abalenkov wrote: Dear all, How are you? I hope all is well with you. I’m wondering, do we have some kind of an announcements mailing list, that would highlight, what happened in the Perl world over

Re: [install and use local::lib module]

2024-02-17 Thread Mike
. Mike F. Houston, TX On 2/15/24 04:23, Maxim Abalenkov wrote: Dear all, How are you? I re-read the README file of the local::lib module. There was one more command missing: echo 'eval "$(perl -I$HOME/perl5/lib/perl5 -Mlocal::lib)"' >>~/.bashrc My new Perl settings in t

Re: https://metacpan.org/pod/OpenOffice::OODoc

2024-02-09 Thread Mike
I don't. Mike On 1/31/24 16:51, hw wrote: Ok and how do you do it with OpenOffice::OODoc? -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: https://metacpan.org/pod/OpenOffice::OODoc

2024-01-30 Thread Mike
FWIW, in Spreadsheet::WriteExcel I do this: $sheet = $book1 -> worksheets(2) -> {Name}; $sheet = $book1 -> worksheets($sheet); $sheet -> Activate; $sheet -> Range("B2") -> Activate; $ex -> ActiveWindow -> {FreezePanes} = "True"; Mike On 1/28/

Re: https://metacpan.org/pod/OpenOffice::OODoc

2024-01-25 Thread Mike
It can be done with a Perl module: https://unix.stackexchange.com/questions/723650/editing-libreoffice-calc-spreadsheets-in-the-terminal I have not tested that. Mike On 1/25/24 13:05, hw wrote: Hi, is there a way to create libreoffice spreadsheets (ods) similar to Excel::Writer::XLSX

Re: regex

2024-01-23 Thread Mike
I stand properly scolded. Mike On 1/23/24 07:01, k...@aspodata.se wrote: Please stop using my mail address when replying, I'm on the list and don't want two copies of the same mail (it's not about you Mike). -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional

Re: regex

2024-01-22 Thread Mike
ive or less x's, you must put the zero in, as in /x{0,5}/." Mike On 1/22/24 06:23, Jorge Almeida wrote: Please help me to understand this: $ perl -e 'exit(10) if "aaa"=~/a{,2}/;' $ echo $? $ 10 Thanks Jorge Almeida

Re: Knowledge for a basic programmer and advanced programmer

2024-01-05 Thread Mike
If you are coding you should be backing up every 10 minutes or more often.  And you should store a "historical" full copy of the code every 30 minutes or more often and save them for days. Mike On 1/2/24 10:33, William Torrez Corea wrote: On Tue, Jan 2, 2024 at 5:17 AM Shlomi F

Re: [getting PAUSE account]

2024-01-01 Thread Mike
That is true.  I don't see the appeal with Python, but I have barely dabbled in it.  I code for me and I know Perl.  I don't have the motivation to learn a new language. Perl works well, so I use it. Mike On 12/25/23 22:05, William Torrez Corea wrote: I am a beginner, I am learning

Re: [getting PAUSE account]

2023-12-25 Thread Mike
/comments/l1n0q2/questions_about_pause_account/?rdt=41813 Do you plan to create a module for CPAN?  I'm just wondering.  Perl is still going strong, though you might not think so from what you see.  I use it all day - every day. Mike Houston, TX On 12/23/23 10:01, Maxim Abalenkov wrote: Dear all, How

Re: Upgrade Perl

2023-10-05 Thread Mike Hübschen
I use https://perlbrew.pl/ Best regards, Mike On 10/5/23 21:03, William Torrez Corea wrote: How to upgrade Perl from Debian? I have Perl *v5.32.1* -- With kindest regards, William. ⢀⣴⠾⠻⢶⣦⠀ ⣾⠁⢠⠒⠀⣿⡁ Debian - The universal operating system ⢿⡄⠘⠷⠚⠋⠀ https://www.debian.org <ht

Re: My progress in Perl

2023-08-07 Thread Mike
"Try to learn by doing something that you need." That is great advice.  Write a program to open your directories given a key word.  I use that program dozens of times every day. Mike On 8/7/23 00:29, Olivier wrote: William, I started testing some extensions of CPAN but I don't

Re: hosting suggestion?

2023-07-03 Thread Mike
I used HostGator for more than 10 years, but they lost much of their expertise during Covid.  I am on A2-hosting now.  I think they are expensive, but pretty good. Mike On 7/1/23 13:49, Rick T wrote: My web hosting company is closing business, and I less than two weeks to move my five

Re: Communities or support

2023-06-14 Thread Mike
Good question.  I know we are using it here in the USA. I put in my time on Perl, and now I can whip up a program mighty fast.  I do so quite often.  And I use it every day - many times a day. Mike On 6/14/23 17:44, William Torrez Corea wrote: Why don't existing communities, use or support

Re: providing perl api for C library

2022-12-10 Thread Mike
I don't know. You know what they say - to get the quickest answer, don't ask the question.  Instead, do it wrong and people will come out of the woodwork to tell you your an idiot :-) Mike On 12/9/22 21:19, Henry R wrote: Hello list, I have written a C library which encrypts the data

Re: Iterating over Arrays

2022-09-25 Thread Mike
\n";     }     else {    print "undefined\n";     } } print "\a"; __END__ Output: this that undefined undefined undefined bad idea Mike On 9/24/22 20:00, William Torrez Corea wrote: What happen with my code? use strict; use warnings; use diagnostics; my @word

Re: How to can develop a program

2022-08-05 Thread Mike
I agree.  Roadmap is good.  I even gave him a starting roadmap, but I think he is just looking for the answer.  Which means he is going to be disappointed for sure. Mike On 8/2/22 03:41, Ruprecht Helms (privat) wrote: for bigger developing-project the best thing is a roadmap, because

Re: How to can develop a program

2022-07-20 Thread Mike
will not be in any of the files?  Is that the goal? Define your goal and we will help you. The file below is a bit old, but maybe it works for your PDF files.  I have not tested it on your url.  I gather you don't have HTML tables, so maybe it is not for your case. Mike #!/usr/bin/perl -w

Re: Which distribution of PERL to use

2022-07-04 Thread Mike
Strawberry Perl would be my preference if it works. Mike On 7/4/22 19:52, Mr. Faiz Ul Haq Zia wrote: Hello,   Which one of the PERL distribution should I use on windows 11. regards Faiz ul haque Zeya Senior Associate professor BUKC

Re: Fwd: Win32::OLE merge rtf files - table structure missing

2022-06-15 Thread Mike
It sounds to me like you have everything completed that you want to do. Mike On 6/14/22 23:00, perl kamal wrote: Hi Mike, Greetings!!! Please find the attached source.rtf file. I have been trying to parse the rtf file and extract a few clinical measurements data and update that information

Re: Win32::OLE merge rtf files - table structure missing

2022-06-14 Thread Mike
There are a bunch of steps there. When you say "construct a table" - in what format? Is the finished product an html file? Do you know how to parse the rtf file already? If not, send an rtf file to me at te...@mflan.com I have attached a file to see if the list accepts attachment

Re: Can use perl for download photos from facebook?

2022-03-20 Thread Mike
their site to obfuscate it again. Here is one example of people overcoming the FB obfuscation, and then FB changes their site to obfuscate it again: https://gist.github.com/zmwangx/6bb9ddb5d904b7275c62 I don't use FB because I don't like their rules. Mike On 3/19/22 22:25, William Torrez

Re: threds question with Tk

2020-12-15 Thread Mike
If nobody responds, please supply a stripped down version of the script that produces the problem. Maybe get rid of use threads; use threads::shared; use IO::Socket::INET; Mike On 12/14/20 7:00 AM, stefano cerbioni wrote: hi guys i have created a script because i want a listbox and inside

Re: question about stream data and tk

2020-12-09 Thread Mike
I'm thinking that is not easy - maybe not possible. I hope you prove me wrong. Mike On 12/9/20 6:52 AM, stefano cerbioni wrote: hi guys  i have  a question is  possible insert in listbox a TCP ipStream ? Does anyone  have some examples about it ?? because I don't know where to start

Re: perl-5.32.0 - Failed test ''S' is set in PERL_UNICODE, or in -C, honor it, utf8 should be on'

2020-09-29 Thread Mike
option. So we are saying that Perl v5.32.0 would not install on your machine.  Maybe I should stick with my Perl v5.30.0 Mike On 9/27/20 11:25 PM, Robbi Nespu wrote: Hello everyone, I am new with perl. My test server are using SLES11SP4 and it already EOL. The latest openssl I can get from

Re: Error when using the executable perl in client machine

2020-04-24 Thread Mike
Hi Manikandan, I just received this response on the PAR list: Forwarded Message Subject:Re: Par with strawberry-Perl Date: Sat, 25 Apr 2020 09:44:13 +1000 From: Shawn Laffan To: Mike Flannigan CC: p...@perl.org Hello Mike, There are likely missing

Problem with interaction of open3, sysread and DBI (pg)

2020-03-22 Thread Mike Martin via beginners
I have a strange issue with sysread and postgres (and ffpeg/stderr) If the main program throws an error sysread stops if I write to the database (a log table) this is the program (need open3 because ffmpeg writes to stderr not stdout) use IPC::Open3; my($file,$in, $out); my $pid; use Symbol

Re: reading data from a web site

2019-11-20 Thread Mike
Mike On 11/20/19 12:52 PM, hw wrote: The web site seems to be created by a program running on the server, i. e. there is not really a web site. When I access it with lynx or with WWW::Mechanize, the answer from the server says that neither frames, nor javascript is supported

regular expression

2019-09-08 Thread Mike
You are not doing anything with $t to test whether it works.  Also you are not telling us what data you might test it with. Mike On 9/8/2019 6:41 PM, Jim Gibson wrote: On Sep 8, 2019, at 3:39 PM, Mike wrote: I expect it to return a positive value if $t contains a number anywhere within

Re: Hi Folks : I'm trying to create a regular expression for finding a # wishing a dataset for only a number that is a multiple of 5

2019-09-08 Thread Mike
It's probably best if you write a short script that reads a __DATA__ section of data. Then tell us what it does and what you expected it to do. Off hand I don't see anything wrong with your regex, but I don't know what you expect it to do. Mike On 9/8/2019 4:34 PM, Jim Gibson wrote

Re: symlink to "pack"

2019-09-07 Thread Mike
htm I am on Strawberry Perl, so I can't really help debug this. Mike On 9/7/2019 3:25 PM, Jorge Almeida wrote: Sorry about the title, it's the best I can do... #!/usr/bin/perl use strict; use warnings; my $num=12; my $target=pack('n', $num); symlink($target, "foo") || die $!; It die

Re: Geo::WebService::Elevation::USGS

2019-09-03 Thread Mike
'Unable to get page'; # Does not work Mike On 9/2/2019 12:31 AM, Olivier wrote: Mike writes: Yes.  Both of these work fine: my $test = get('http://google.com/') or die 'Unable to get page'; # Works my $test = get('https://google.com/') or die 'Unable to get page'; # Works Good, do we know two

Re: Geo::WebService::Elevation::USGS

2019-08-30 Thread Mike
Yes.  Both of these work fine: my $test = get('http://google.com/') or die 'Unable to get page'; # Works my $test = get('https://google.com/') or die 'Unable to get page'; # Works On 8/29/2019 9:33 PM, Olivier wrote: Mike writes: Sorry Mike, but I have hard time to get a clear picture

Re: Geo::WebService::Elevation::USGS

2019-08-29 Thread Mike
I was thinking it might give the fill in form that you get when you go here: https://nationalmap.gov/epqs/ I think you are right.  It is acting as intended when visited with a browser. Mike On 8/28/2019 10:00 PM, Olivier wrote: Mike writes: Thanks for the response. Yeah, I don't

Re: Geo::WebService::Elevation::USGS

2019-08-29 Thread Mike
In my Firefox it is set at: "Use system proxy settings" I turned it off briefly, but didn't really see any changes. I do not implement a proxy in LWP::Simple. I don't think I use a system Proxy: http://www.mflan.com/temp/proxy.jpg Mike On 8/29/2019 5:52 AM, Olivier wrote: A

Re: Geo::WebService::Elevation::USGS

2019-08-29 Thread Mike
UserAgent uses the FireFox identity. I know I can use Mechanize and really dive into this. And I might do that someday.  But for the moment I'm thinking this is unlikely to get fixed in the next week. Good thing I don't need this. Mike On 8/29/2019 5:35 AM, Olivier wrote: I don't see why you

Re: Geo::WebService::Elevation::USGS

2019-08-29 Thread Mike
ds.blm.gov/default.aspx') or die 'Unable to get page'; # Does not work print "\nAll done.\n\n\$test = $test\n\n"; __END__ On 8/28/2019 10:00 PM, Olivier wrote: Mike writes: Thanks for the response. Yeah, I don't understand why https://nationalmap.gov/epqs/pqs.php won't open in a b

Re: Geo::WebService::Elevation::USGS

2019-08-28 Thread Mike
that will fix it, but I am trying just about everything. I still can't figure out why it works on some URL's, and not others.  It's probably going to take me a long time to figure this out. Mike On 8/28/2019 6:26 PM, $Bill wrote: This seems fine on my Win10: use strict; use warnings; use LWP

Re: Geo::WebService::Elevation::USGS

2019-08-28 Thread Mike
arc-second     583.54     Feet   When I go to: https://nationalmap.gov/epqs/pqs.php?x=-90.76983=38.72360=feet=xml it gives:       3DEP 1/3 arc-second     583.54     Feet   So that works. Mike On 8/26/2019 10:26 PM, Uri Guttman wrote: have you tried to just telnet to those hosts

Re: Geo::WebService::Elevation::USGS

2019-08-27 Thread Mike
gt; { verify_hostname => 0, } ); $ua->env_proxy; $ua->agent("Mozilla/5.0 (Windows)"); my $response = $ua->get($url); if ($response->is_success) { print $response->content; } else {    die $response->status_line; } print "All done.\n\n"; __END__ Mik

Geo::WebService::Elevation::USGS

2019-08-26 Thread Mike
error: 500 Can't connect to nationalmap.gov:443 (Bad address) at .pl line 12. If you get either to run correctly, see if you have Geo::WebService in your environment variables. Thank you. Mike -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beg

Re: Problem executing command via ssh

2019-08-24 Thread Mike
Wow, a complicated question that I know very little about.  But since nobody else has jumped in, I will show my ignorance by suggesting this: Perhaps change $command to @command. or use something like local $/; These beginners questions are getting pretty complicated :-) Mike On 8/23/2019

Question re remove_tree and symlinks

2019-08-23 Thread Mike Martin
to files in testdel remove_tree($dir,{safe => 1}); Will not remove files in testdel that are linked to in testdellink thanks Mike

Re: Google Sheets API Data Structure

2019-08-16 Thread Mike
Please state the exact module name. Is it this one: https://metacpan.org/pod/Net::Google::Spreadsheets::V4 My guess is no. Mike On 8/15/2019 10:18 AM, James Kerwin wrote: Hi All, I managed to get the Google Sheets API Perl module working. I'm currently investigating a data structure

Open and perl sub

2019-08-08 Thread Mike Martin via beginners
Is it possible to have the output of a perl module piped to open (open3 in my case), so I can use a file handle contains the output passed to sysread Odd question I know Thanks

Re: Install Problems: Net::Google::Spreadsheets

2019-08-07 Thread Mike
I believe somebody else responded to this, but . . . I'll help if I can. If you want me to try to install Net::Google::Spreadsheets I can.  I am on Win7 - Strawberry Perl V 5.26.1 Mike On 8/5/2019 9:47 AM, James Kerwin wrote: Hi All, I'm having some difficulty installing a Perl Module

Re: Device::SerialPort on debian Buster

2019-08-05 Thread Mike
/ Mike On 7/10/2019 8:51 AM, Martin McCormick wrote: Before I take this too far, I want to make sure I am not doing something wrong with use of the Device::SerialPort module in perl. The code below talks to what it thinks is a RS-232 serial port and controlls a radio scanner so

Re: What are these numbers (gmtime, slice)

2019-07-08 Thread Mike Small
Uri Guttman writes: > On 7/4/19 2:41 PM, Mike Small wrote: >> A co-worker was trying to take some of the elements from gmtime's return >> value. He did something like the following: >> >> $ perl -E'$,="\t";say gmtime[1..5]' > > that is calli

What are these numbers (gmtime, slice)

2019-07-07 Thread Mike Small
A co-worker was trying to take some of the elements from gmtime's return value. He did something like the following: $ perl -E'$,="\t";say gmtime[1..5]' 8 32 12 31 7 2999416 1 243 0 I suggested he try something like this instead... $ perl -E'$,="\t";say

trouble

2019-07-03 Thread Mike Flannigan
notify the PAUSE people that the PAUSE program appears to be broke, please do. Mike -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: PAUSE

2019-07-01 Thread Mike
I never did receive the e-mails to my AT e-mail, but a person in Demmark, or someplace like that, gave me some personal attention and I believe all is good now. Thanks so much to Shlomi, Andreas and everybody else. I first applied to PAUSE on 6/9/2019. Mike On 6/30/2019 7:07 PM, pengyong

PAUSE

2019-06-30 Thread Mike
. Mike -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: CPAN not working, or is it?

2019-03-11 Thread Mike Flannigan
I wanted you to know that we are out here, but just unable to help you. I doubt this old post will help you any: https://centosfaq.org/centos/perl-on-centos-6-and-centos-7/ Mike On 3/11/2019 8:55 AM, Gary Stainburn wrote: I'm replacing a dead F19 box with a new C7 one and I'm trying

Re: covert perl code to binary

2019-01-11 Thread Mike Flannigan
t sure what to make of that. Especially that part that says: 'We generally discourage the use of perl since 5.16 unhandled and unacknowledged security problems' Mike | On 1/11/2019 9:28 AM, Bruce Ferrell wrote: I built it on a Linux box, it blew up so I read the README... that has instructions for how

Re: covert perl code to binary

2019-01-11 Thread Mike Flannigan
, but I think it is safe to say it does not install real good on Strawberry Perl. Mike Problem Event Name:    APPCRASH   Application Name:    perl.exe   Application Version:    5.26.1.1   Application Timestamp:    59c72b89   Fault Module Name:    ntdll.dll   Fault Module Version:    6.1.7601.24335

Re: covert perl code to binary

2019-01-11 Thread Mike Flannigan
disassemble perlcc.PL pl2exe.pl After installing perlcc, do I just open a command prompt and type perlcc -o hello.exe hello.pl? Does all this work on Windows?  My guess is Yes. Mike On 1/11/2019 6:57 AM, Andrew Solomon wrote: Just a warning - I'm no expert on this topic, but it was such an interesting

How to test for existence of file with non-ascii characters

2018-12-26 Thread Mike Martin
Any ideas how to test for the existance of a file, when the file name contains extended ascii characters For example if the file contains emdash (U-2014) file -e always returns false thanks Mike

Re: What does "use 5.008;" affect?

2018-12-23 Thread Mike Flannigan
I'm still not sure I know, but I learned a lot from these articles: https://stackoverflow.com/questions/1878108/whats-the-modern-way-of-declaring-which-version-of-perl-to-use https://perldoc.perl.org/functions/use.html Maybe the 2nd one describes what it does. Mike On 12/22/2018 3:43 AM

Re: Code Assistance Pls

2018-11-21 Thread Mike Flannigan
These 2 lines: if (/^        file-id $i/) { and elsif (/^        exit/) { Need to be like this: if (/^\s+file-id $/i) { # 2 CHANGES HERE - PAY CLOSE ATTENTION and elsif (/^\s+exit/i) { I am not sure this will fix all your problems. Mike On 11/21/2018 5:08 AM, Amanda Paziuk wrote

Re: Strange behavior when printing a 4G+ integer on 32bits platform.

2018-11-13 Thread Mike Flannigan
I don't have an answer for you, but I find this interesting.  I note the same issue in 64bit up near 18446744073709551615 I'm guessing the guy who wrote Math::BigInt may have the answer. Mike On 11/13/2018 8:07 AM, Tetsuo Handa wrote: Hello. I want to represent up to a few hundreds

Re: data structure for Template Toolkit

2018-10-31 Thread Mike Flannigan
Are you on Linux or using Strawberry Perl? I used Activestate for 15+ years and I was surprised by how easy it was to move to Strawberry Perl about 3 years ago.  It's pretty darn easy to install modules with Strawberry Perl and seems to work every time. Mike Uri, thanks for the boatload

Re: data structure for Template Toolkit

2018-10-29 Thread Mike Flannigan
  print "$key - $list{$key}\n"; } __END__ This is a way for you to debug it yourself. If that works as expected, then get back to us. Mike On 10/28/2018 3:45 PM, Rick T wrote: As a novice in perl I realize that it’s a bit presumptuous for me to attempt references and complex data struc

Re: sftp code to use

2018-10-28 Thread Mike
One way to unzip with Perl is this method: use warnings; use strict; use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); my $zipfile = 'zipped.zip'; my $zip = Archive::Zip->new(); die "Error reading $zipfile:$!" unless $zip->read($zipfile) == AZ_OK; $zip->extractMember($zipfile) for

Re: sftp code to use

2018-10-21 Thread Mike Flannigan
One way to unzip with Perl is this method: use warnings; use strict; use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); my $zipfile = 'zipped.zip'; my $zip = Archive::Zip->new(); die "Error reading $zipfile:$!" unless $zip->read($zipfile) == AZ_OK; $zip->extractMember($zipfile) for

Re: Regex for date

2018-08-25 Thread Mike Flannigan
Really, no attempt to do it yourself? Mike On 8/25/2018 6:06 AM, beginners-digest-h...@perl.org wrote: 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

Re: What hash function to use

2018-08-23 Thread Mike Flannigan
it hasn't been abandoned. Mike On 8/23/2018 3:00 AM, beginners-digest-h...@perl.org wrote: Hello, I am not sure if my question is really of beginer level. On a system, I have set my password to "t410" and it has ben hashed to: $2b$10$OQBll77HJqnOR.zqK2jx8ukE6m68Azc7nrsgRdcT6bVfERRmzFV4.

Re: Regex for date format

2018-06-29 Thread Mike Martin
Worked perfectly thanks, uri, and same technique works perfectly in postgresql regexp_replace for info On 29 June 2018 at 16:18, Mike Martin wrote: > Thanks > > > On Fri, 29 Jun 2018, 15:48 Uri Guttman, wrote: > >> On 06/29/2018 10:41 AM, Mike Martin wrote: >

Re: Regex for date format

2018-06-29 Thread Mike Martin
Thanks On Fri, 29 Jun 2018, 15:48 Uri Guttman, wrote: > On 06/29/2018 10:41 AM, Mike Martin wrote: > > sorry > -mm-dd hh:mm:ss.dd > eg: > 2018-01-01 12-45-10-456789 to > 2018-01-01 12:45:10.456789 > > > > please reply to the list and not to me! >

Regex for date format

2018-06-29 Thread Mike Martin
/(?<= )-/:/g; any help appreciated Mike

Re: difficulty with matching

2018-06-03 Thread Mike Flannigan
ith it like this you can at least figure out what it is doing, but maybe not why.  The manpages will probably be needed to answer that. Please let us know what you find out. Mike On 6/1/2018 3:55 PM, beginners-digest-h...@perl.org wrote: Subject: difficulty with matching From: Rick T Da

Unzipping pkzip archives

2018-05-22 Thread Mike Martin
Hi Does anyone know if there is a perl solution to uncompressing zip archives created with pkzip? I have tried Archive::Uncompress and IO::Archive and both fail with compression type 9 errors, apparently due to proprietary format thanks Mike

Re: regex with HEX ascii chars

2018-04-15 Thread Mike Flannigan
Try: binmode(HANDLE) before reading the file. HANDLE is your filehandle. If that doesn't work you might want to supply the text file and a sample script. Mike On 4/12/2018 12:04 PM, beginners-digest-h...@perl.org wrote: I have a text file (created by pdftotext) that I've imported

Re: [^/]* Is Not Working

2018-03-23 Thread Mike Flannigan
the last time I received a post was 3/17/2018. Mike

Re: [^/]* Is Not Working

2018-03-23 Thread Mike Flannigan
Thank you John Anderson and others. I see your answers in the archives, but for some reason I am not receiving the list postings anymore.  I am working to correct that. It appears the last time I received a post was 3/17/2018. Mike On 3/17/2018 10:02 AM, Mike Flannigan wrote: This line

[^/]* Is Not Working

2018-03-17 Thread Mike Flannigan
to do with the "[^/]*". Anybody have an explanation for this? Mike Simplified code: #!/usr/bin/perl use strict; use warnings; my $link = '/tree'; #if ($link =~ m/\/([^/]*)$/) { # Oddly this does not work if ($link =~ m#/([^/]*)$#) {     my $match = $1;     print "\nIt worked - $ma

Re: Checking if a website is up doesn't work correctly

2018-02-15 Thread Mike Flannigan
See if some version of the attached program gives the results you expect. Mike On 2/13/2018 8:33 PM, beginners-digest-h...@perl.org wrote: I tried WWW::Mechanize, and (of course) got also 403. Really strange. Is there another tool I could use for checking? I mean some tool in the Perl

Find::Perl find not returning

2017-12-13 Thread Mike Martin
Hi I have the following code use strict; use File::Find; my @vsbe; my $top='P:\PT-6\PT-60\PT-603\Shared\Data Store\Files Dump Folder'; my $max_depth=9; my $cnt1=0; find({wanted=>\,preprocess=>\},$top) ; sub wanted1 { if ($cnt1 <=1000){ my $file = $File::Find::name; if (grep {/vsb$/} $file){

Re: Unescaped Left Brace

2017-11-24 Thread Mike Flannigan
these years.  I looked at Python once and could not justify even starting with it. Mike On 11/24/2017 11:29 AM, Andy Bach wrote: unless ($text =~ /[a-zA-Z\s]{10,}/s) { If you're here checking if $text has at least 10 letters/spaces, you don't need the range unless ($text =~ /[a-zA-Z\s]{10}/s

Re: Unescaped Left Brace

2017-11-23 Thread Mike Flannigan
less ($text =~ /[a-zA-Z\s]{10,}/s) { Thanks for the response. Mike On 11/23/2017 8:31 AM, X Dungeness wrote: Hm, that's a misbegotten quantifier. From 5.26.0 perlreref: There is no quantifier "{,n}". That's interpreted as a literal string. On Thu, Nov 23, 2017 at 3:04 AM, Mike Flannigan

Unescaped Left Brace

2017-11-23 Thread Mike Flannigan
I say this is a huge problem.  Seems like the migration to Perl 5.30 is going to be interesting to say the least. Anybody have any other comments about this? Mike Flannigan -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: "Information station" using Perl and Raspberry Pi

2017-07-27 Thread Mike Flannigan
experience with Raspberry Pi, but it seems clear it would probably work if you are abandoning the watching of TV on the set. I'd like to hear how this works out for you. Mike On 7/25/2017 2:21 PM, beginners-digest-h...@perl.org wrote: Subject: "Information station" using Perl and Ra

Re: IPC::Open3 and output

2017-07-10 Thread Mike Martin
2>&1") while $pid=open3(undef,undef,$file,$cmdprog, @args) does not until you iterate over the FH thanks On 10 July 2017 at 07:13, Chas. Owens <chas.ow...@gmail.com> wrote: > On Sun, Jul 9, 2017, 19:37 Mike Martin <redt...@gmail.com> wrote: > >> Hi >

IPC::Open3 and output

2017-07-09 Thread Mike Martin
='1/1' -profile:a aac_he_v2 -strict -2 -y /home/mike/testopen.mp4"; use Text::ParseWords; @args = quotewords('\s+', "'", $str); use IPC::Open3; local(*HIS_IN, *HIS_OUT, *ERR); my $cmd='ffmpeg'; my $pid=open3(undef, undef, *ERR,$cmd, @args) or die print "$!"; my $line; while (s

Warnings when sorting by hashref

2017-04-11 Thread Mike Martin
efined($type) ; } The sort function works perfectly, however perl throws up the following warning for each line Use of uninitialized value in uc at Any ideas how to get rid of the warning thanks Mike

Re: Bad display of accents in Subject

2017-03-22 Thread Mike Flannigan
I'm not sure this is the answer, but try Unicode::Collate http://stackoverflow.com/questions/7429964/how-to-match-string-with-diacritic-in-perl Mike On 3/19/2017 10:58 PM, beginners-digest-h...@perl.org wrote: Hello, when I run this script: (it's an excerpt

Email Sender timeout with more than two paragraphs of text in body

2016-10-03 Thread Mike Martin
arts,Email::MIME->create( body => $message."\n".$footer, attributes=>{content_type =>'text/plain'} ); foreach my $line (@attachments){ my $mime=`file --mime-type $line`; my @type=split /: /,$mime; chomp $type[1]; my $mime_t

Re: XML::Simple Umlaute

2016-07-30 Thread Mike Flannigan
I'm not sure if it is possible to use Umlaute in XML Files or not. Maybe this post with help you: http://stackoverflow.com/questions/11772468/reading-xml-files-with-umlaut-chars Is there a way to change encoding to "iso-8859-1"? Mike On 7/28/2016 8:03 AM, beginners-digest-h..

Re: reading directories using perl in windows

2016-03-13 Thread Mike Flannigan
FYI, there is no error. If the directory path has no spaces it works fine, if the directory path has spaces it prints the path up to the 1st space and just goes back to a cursor line. Mike On 3/6/2016 5:04 AM, beginners-digest-h...@perl.org wrote: Subject: Re: reading directories using

Re: Is perl user specific

2016-01-06 Thread Mike D
In the future, please use the Reply All feature. So, run `echo $PATH` on both users. If the path for the Perl executable is different for the user in which the script works, try editing the path variable for the user in which it doesn't to use the path to the working Perl executable:

Re: Is perl user specific

2016-01-06 Thread Mike D
Please use the Reply All feature so that your replies get sent to the mailing list. On Wed, Jan 6, 2016 at 11:21 AM, Ankita Rath <ankitarath2...@gmail.com> wrote: > Okay I will try it.. Thank u > > Ankita > On 6 Jan 2016 22:44, "Mike D" <ekimduna...@gmail.com>

Re: sure would be nice if Perl had trace command built-in

2015-12-12 Thread Mike Flannigan
ly didn't pay for it. Mike

Re: uniq array creation

2015-11-26 Thread Mike Flannigan
See if this meets your needs: http://www.arl.wustl.edu/projects/fpx/references/perl/cookbook/ch04_07.htm Mike On 11/25/2015 1:53 AM, beginners-digest-h...@perl.org wrote: Hi I want to create a unique array . I have the code below. It is creating a array which will have duplicate data

Re: converting Genbank format in gff format

2015-08-20 Thread Mike Flannigan
accurately. Maybe the OP is not aware of CPAN. I suggest he do a DDG search for CPAN. Good think he is on Linux, because Activestate does not have anything on Genbank or gff. Mike

problem with regex qr operator

2015-06-25 Thread Mike Martin
Hi I am currently getting issues with regexes that use the qr operator. The results with qr are different than without. This is a small sample program to illustrate it use strict; my $str='Database Administrator'; my $pattern=

Re: Getting 2/8 as output

2015-06-17 Thread Mike Flannigan
Thank you. I stand corrected. Interestingly, if you do perldoc -q $, it does not explain $, but instead goes into some system with as the prompt. Mike On 6/17/2015 8:43 AM, Andy Bach wrote: Actually there is a $, - array display separator. http://perlmaven.com/output-field-separator

Re: Getting 2/8 as output

2015-06-17 Thread Mike Flannigan
If I am not mistaken there is no $, variable in Perl. Correct me if I am wrong. I suspect that was supposed to be $/. Mike On 6/17/2015 7:32 AM, beginners-digest-h...@perl.org wrote: { local $, = \n; print %test; } -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org

Re: Fwd: Re: LWP/Protocol Errors

2015-05-27 Thread Mike Blezien
Date: Mon, 25 May 2015 12:13:11 -0500 From: Lawrence Statton lawre...@cluon.com To: beginners@perl.org On 05/25/2015 12:02 PM, Mike Blezien wrote: Hello, I recently setup a Paypal IPN

Re: [Bulk] Re: Fwd: Re: LWP/Protocol Errors

2015-05-27 Thread Mike Blezien
On 5/27/2015 7:46 AM, Lawrence Statton wrote: On 05/27/2015 07:33 AM, Mike Blezien wrote: *CONNECTED(0003) --- no peer certificate available --- No client certificate CA names sent --- SSL handshake has

LWP/Protocol Errors

2015-05-25 Thread Mike Blezien
except one. Is it possible that port 443 is being block or not open due a firewall on the server? Any suggestion would be appreciated. -- Mike(mickalo)Blezien =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Thunder Rain

Re: LWP/Protocol Errors

2015-05-25 Thread Mike Blezien
On 5/25/2015 12:27 PM, Lawrence Statton wrote: On 05/25/2015 12:02 PM, Mike Blezien wrote: Hello *I use same IPN script on other servers without any issues except one. Is it possible

  1   2   3   4   5   6   7   8   9   >