Re: [NEWBIE-Question] Processing Menus

email'}\n"; print FILE "URL $in{'url'}\n"; print FILE "Description $in{'description'}\n"; print FILE "\n"; close(FILE); # Open the sendmail program and pipe the data open(MAIL, "| $mailprog -t") || die "I can't open $mai

Re: [NEWBIE-Question] Processing Menus

email'}\n"; print FILE "URL $in{'url'}\n"; print FILE "Description $in{'description'}\n"; print FILE "\n"; close(FILE); # Open the sendmail program and pipe the data open(MAIL, "| $mailprog -t") || die "I can't open $mai

Re: [NEWBIE-Question] Processing Menus

email'}\n"; print FILE "URL $in{'url'}\n"; print FILE "Description $in{'description'}\n"; print FILE "\n"; close(FILE); # Open the sendmail program and pipe the data open(MAIL, "| $mailprog -t") || die "I can't open $mai

Re: me@me.com mail error

How is that? Etienne Marcotte <[EMAIL PROTECTED]> wrote in message [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... > From: > Mail Delivery Subsystem <[EMAIL PROTECTED]> > Subject: > Returned mail: Host unknown (Name server: me.com: no data known) > > To: > <[EMAIL PROTEC

NET::FTP

Is there a way to use NET::FTP to only download files if they are current day? If not can it be done another way? Thanks! Mike -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: :FTP

THANKS! John Edwards wrote: > Take a look at the Net::FTP docs. There's a function in the module called > mdtm which returns the modified timestamp of the remote file. Query that, > then download if it matches your criteria. > > HTH > > John > > -----Original M

Get the first 10 characters.

How do I get the first 10 characters of a string? Mike -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: extracting links from HTML data (7my own problem usiing grep

On Tue, 2002-01-15 at 01:44, Lorne Easton wrote: > I need to write some code that extracts that extracts hyperlinks from a > scalar ($data) and puts them into an array. > > I imagine that grep can do this, but my mastery of it and > reqular expressions are not brilliant. > > Can you please provi

RE: extracting links from HTML data (7my own problem usiing grep

On Wed, 2002-01-16 at 07:15, Gary Hawkins wrote: > > However the script continues > > print @list3; > > my $var1='META'; > > @lista= grep{$var1} @list3;## not picked up at all > > print @lista > > > > anyone any clues > > Suppose I'm a little confused but perhaps you meant: > > print @list3; >

Re: Greedy 'split' ???

On Thu, 2002-01-17 at 00:55, Michael Fowler wrote: > On Wed, Jan 16, 2002 at 03:57:44PM -0800, Scott Lutz wrote: > > > > $DOM_NAME, my $TLD) = split(/\./, $domain); > > creates two variable out of an inputted domain name, > > > > until this comes along: > > domainname.org.uk > > > > which

question re mtiong email tags

Hi I have been trying to set oup a script for munging html files My problem is trying to match <> tags in html which of course have specific meanings in perl. Does anyone hve any advice on this or know of a good resource (this is something of a building up expertise in perl fundamentals so not i

Perl Help

LOG $date; print IPLOG "$ip"; close IPLOG; If I do it this way it errors out via the web: #!/usr/bin/perl $logfile = '/usr/local/apache/logs/ipaccess.log'; $date = scalar localtime; open(IPLOG, ">>$logfile") || die "Cannot open $logfile"; $ip = $ENV{&

LISTBOX Problem

to /var/www/html/members/wx/zfp/ ($!)"; while (<*>) { print "http://www.myserver.com/members/wx/zfp/$_\";>$_ \n"; } print<\n \n \n END It errors out Can someone help me with this? syntax error at ./listfiles.pl line 13, near "chdir" (Might be a runaway multi-line << string starting on line 4) BEGIN not safe after errors--compilation aborted at ./listfiles.pl line 14. Thanks Mike

Execute perl Script

How do you execute a perlscript within a perl script via the web? Mike -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Password Generator

IS there a perl password generator out there? Mike -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

passing a hash via cookie and dereferencing it

} for (keys %{$KK}) { print $xx->center($xx->h2("Key: ",$_,"\n"), $xx->h2("value from reference: ",${$KK}{$_},"\n")); } print $xx->end_html; As you can see if you run these two scripts, the dereferencing step didn't give me back my hash %KK. I used the same synax to dereference $KK in both programs, but it didn't work for the passed one. Can anybody help? Thanks in advance. Mike -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Pass a wild card argument in Win32

I've searched google and much of this group to find the answer to this problem with no luck. I am able to pass regular arguments to perl but is it possible to get the * operator to work like it does in Linux? Like typing in *.cpp to pass perl all .cpp files. I already fixed the issue getting the

Dufus question about form-fields and colour

Does anyone know if it is possible to give a color attribute to form field? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

nested while loops using DBI

I am trying to get the detail records to appear on a form underneath the header records with a db lookup Code $row=$dbh->prepare("SELECT contact_id,first_name,last_name,organisation FROM tb_contacts WHERE organisation ILIKE ?"); my $cat1="%$category%"; $row->bind_param(1,$cat1); $row->execute();

RE: nested while loops using DBI

On Mon, 2004-03-22 at 18:04, Guay Jean-SÃbastien wrote: > Hello Mike, > > > $row=$dbh->prepare("SELECT contact_id,first_name,last_name,organisation > > FROM tb_contacts WHERE organisation ILIKE ?"); > > [...] > > > while(($id,$first_name,$l

Confused

I am trying to get rid of a blank line at the start of a text file, and I dont understand why this does not work open(UPD1,"tem");# this file exists my @update1=; foreach $update1(@update1){ $update1=~s/^(\n)//; $update1=~chomp; my @update2=split /#/,$update1;# this bit works But I still get a b

Question about cgi forms (slightly OT)

I am developing a cgi/DBI app which is nearly finished I have this one question The scenario I have a cgi generated form on a web-page, it consists of several records defined by a DB lookup. When I do Search in the web-browser, is there any way to get it to search the values in the fileds of th

Re: Confused

On Wed, 2004-03-24 at 14:19, James Edward Gray II wrote: > On Mar 24, 2004, at 7:59 AM, WC -Sx- Jones wrote: > > > while() { > > chomp; s/^\s+//; s/\s+$//; next unless length; > > There's probably not much reason to chomp() and s/\s+$//, since the > later handles both. > > James > Thanks

Re: Question about cgi forms (slightly OT)

On Thu, 2004-03-25 at 13:18, WC -Sx- Jones wrote: > mike wrote: > > > When I do Search in the web-browser, is there any way to get it to > > search the values in the fileds of the form? > > > > Currently all the values show up, but they dont seem to appear to

Question about permissions

I have developed an intranet perl/postgesql app which works fine except for one bizarre problem I have all the appropriate scripts with the following permissions -rw-r-xr-- 1 mike apache However periodically the permissions change with the group ownership changing. This is on Fedora with perl

confused - if function

I am getting a bit confused here, if I uncomment out the print statement within the if block $date1 prints, however the $date1 after the if block doesn't if ($date eq ''){ my $date1=localtime; #print $date1; } else { my $date1=~$date; }; print $date1; any ideas -- To unsubscribe, e-mail: [EMAIL

OT - problem with script running on a refresh

Hi I have a CGI/dbi script which whenever the page is reloaded the following executes print start_multipart_form (POST); print "Subject", popup_menu(-name=>'Subject1',-values=>[EMAIL PROTECTED]); print "Area", popup_menu(-name=>'area1',-values=>[EMAIL PROTECTED]),p; print "Descri

OT - problem with script running on a refresh

Hi I have a CGI/dbi script which whenever the page is reloaded the following executes print start_multipart_form (POST); print "Subject", popup_menu(-name=>'Subject1',-values=>[EMAIL PROTECTED]); print "Area", popup_menu(-name=>'area1',-values=>[EMAIL PROTECTED]),p; print "Descri

Re: Mail::Sendmail

On Wed, 2004-06-09 at 10:59 +0200, Miguel Ãngel Morales wrote: > Hi all! > > I am using Mail::Sendmail module to send e-mails from my perl application but the > text of these messages seems to be too much long and when receiving the e-mail the > text of the message is not complete. > Do yo know

Very wierd problem with CGI.pm

Has anyone ever come accross this wied problem before I have a script which pulls records from a DB then loops into a form and shows each record, with the id no being concatenated to the field name to give a unique record id. However if I have this "Banked",textfield(-name=>'bk_amt'.$bank_inv,-va

Re: Very wierd problem with CGI.pm

On Sat, 2004-06-12 at 08:30 -0700, David Storrs wrote: > On Fri, Jun 11, 2004 at 01:07:54PM +0100, mike wrote: > > Has anyone ever come accross this wied problem before > > > > I have a script which pulls records from a DB then loops into a form and > > shows each r

Passing httpd auth details to cgi-script

Is it possible to pass user/password from apache auth to cgi-scripts. To explain I have apache set to authenticate using htpasswd, checking a file in /etc/httpd When users access the site they get a user/password prompt This then leads to a bunch of cgi-scripts which access DBI::DBDpg Is it po

Re: Using MIME::Lite to send mail/or attachments

On Wed, 2004-06-23 at 10:22 -0700, jason corbett wrote: > Can anyone tell me where I can find MIME::Lite or any other perl method to send > attachments/documents in mail format? If you have tips or scripts on using it to > send mail (documents attached), please let me know. > > Thanks, > JC >

Testing for empty value

I have the following code print "date times",@date,br; if ($ti1){ print "time 1 is not empty"; } else { print "time 1 is empty"; } If there is a value it works but not if there isn't ie: if there is a value it prints "time 1 is not empty", but if there is not nothing comes out anyone any ideas?

split delimiters query

Am I right in thinking that if you double quote the seperator in split the seperator is added to the array ie: @array3=split(/"\t/",$value4); would add \t to the end of @array3 while @array3=split(/\t/,$value4); would not -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-m

Re: split delimiters query

On Wed, 2005-02-02 at 12:54 -0500, Jay wrote: > On Wed, 02 Feb 2005 12:39:17 +0000, mike <[EMAIL PROTECTED]> wrote: > > Am I right in thinking that if you double quote the seperator in split > > the seperator is added to the array ie: > > > > @array3=split(/"

Re: split delimiters query

On Wed, 2005-02-02 at 09:23 -0500, Wiggins d'Anconia wrote: > mike wrote: > > Am I right in thinking that if you double quote the seperator in split > > the seperator is added to the array ie: > > > > @array3=split(/"\t/",$value4); would add \t to the end

DBI problem

I have the following query which works in psql SELECT to_char('05 Feb 2005'::date,'-MM-DD') However when I run it in DBI I get $row6=$dbh->prepare("SELECT to_char('2005-02-05'::date,'-MM-DD')"); #$row6->bind_param(1,'2005-02-05'); $row6->execute(); Can't call method "prepare" on an und

CGI/DBI - Can anyone work out why this fails

I have the following code $cat1; if ($cat1){ my $cat1="%$category%"; } else { $cat1="$category"; } $row=$dbh->prepare("SELECT contact_id,first_name,last_name,organisation FROM tb_contacts WHERE (organisation ILIKE ? OR last_name ILIKE ?) OR contact_id = ?"); $cat1; print $cat1; $row->bind_param

RE: CGI/DBI - Can anyone work out why this fails

On Fri, 2005-02-11 at 08:02 -0500, Bob Showalter wrote: > mike wrote: > > I have the following code > > > > $cat1; > > if ($cat1){ > > my $cat1="%$category%"; > > The "my" here is scoped to this if { } block, so you aren't cha

CGI and &sub question

I have cgi script which works fine if I call another cgiscript. However if I transfer it to runas a sub within the original script some unwanted things happen some variables dissapear The script tries to run the run the sub on open, rather than after submit. After submitting, it is impossible to

CGI and &sub question

I have cgi script which works fine if I call another cgiscript. However if I transfer it to runas a sub within the original script some unwanted things happen some variables dissapear The script tries to run the run the sub on open, rather than after submit. After submitting, it is impossible to

Re: CGI and &sub question

On Wed, 2005-02-16 at 14:36 -0500, Chris Devers wrote: > On Wed, 16 Feb 2005, mike wrote: > > > [Does] anyone [have] any ideas[question-mark] > > Post the code. > > We cannot help you without being able to see the code in question. > > > -- > Chris Deve

DBI query

Anyone got any any idea what is happening here $dbh=DBI->connect("dbi:Pg:dbname=data_cc",$user,$pw); $dump_dir='/home/data_cc/dump'; @names=$dbh->tables(); #$dbh->execute; #print @names; foreach $names(@names){ if (substr($names,0,9) eq "public.tb") { $file1= "$dump_dir\/$names"; $dbh->prepare("CO

DBI query

Anyone got any any idea what is happening here $dbh=DBI->connect("dbi:Pg:dbname=data_cc",$user,$pw); $dump_dir='/home/data_cc/dump'; @names=$dbh->tables(); #$dbh->execute; #print @names; foreach $names(@names){ if (substr($names,0,9) eq "public.tb") { $file1= "$dump_dir\/$names"; $dbh->prepare("CO

Problem with DBD-Pg

Since upgrading to FC4-test3 which has version 1.4.1 of DBD-Pg installed, placeholders no longer work for example the following code $cat='1'; #$cat=param('Category'); print $cat; print start_multipart_form (POST,'con_upd.pl'); $row=$dbh->prepare("SELECT type_code FROM lk_sort_of_contact WHERE de

Introduction and Perl 5 References

Hello everyone. I just wanted to introduce myself to the list. Been following for a little while, first time posting. My name is Mike Dunaway and I am 25 years old. I was curious if there were any other members in the 804 area? I'm looking to meet some other programmers in my area as I

Re: Dates Perl & SQL7

On Wed, 2002-02-20 at 11:26, Mason, Andrew wrote: > This is a concept question rather than a code question. > > I have a script which produces a simple report on some simple disk space > stats for servers I work with. > I thought it would be useful to put this information into a database on > a d

Passing Arguments into a Program

If a program calls a perl script as follows: /tmp/perltest.pl abc def ghi jkl mno Is there a variable which would contain the arguments? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

input with the < symbol

What happens if I call a perl script as follows: test.pl < abc What picks up the abc inside the script? In shell scripting I would just use a read statement (read a). Is there a like function in perl? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PRO

Help with a perl script to parse and email

I'm a perl newbie and need help with writing a script to do the following: 1) Open a file that is delimited. The file is in this format: ; The delimiters can be changed. This is a manually created file. Email and user may be more than one item. 2) Send an email to using the file

Re: DBI prepare syntax

That was a rookie mistake :). Double quotes works, thanks Beginner! Beginner <[EMAIL PROTECTED]> wrote: On 8 Nov 2007 at 8:59, Mike wrote: > Hi, > > #Update override_exclude set th_flag="N" to indicate that thesaurus entries > #have been added to sierra2_thesau

Re: DBI prepare syntax

Perl is Awsome! Thanks for explaining that basic concept to me Douglas! Douglas Hunter <[EMAIL PROTECTED]> wrote: Mike wrote: > Hi, > > I have a variable setup as $pid and i've tried to call this in the prepare > part of the DBI module but i'm get an "U

DBI prepare syntax

Hi, I have a variable setup as $pid and i've tried to call this in the prepare part of the DBI module but i'm get an "Unknown column $pid" syntax error. Probably $pid was passed as a string instead of a variable inside the prepare (''). Anyone has an idea of how i can fix this? Thanks. D

Re: jsFiddle

On 1/15/2013 2:35 PM, Bill Stephenson wrote: Check out this web app: http://jsfiddle.net/ (Google "jsfiddle.net example" for examples of use) It would be nice to have something like that for fiddling with perl. I haven't really thought it through, but it might not take much to create somethi

Re: parsing website

On 2/26/2013 1:46 PM, Noah wrote: Hi there, I want to parse text from a website. what are some good methods and modules to do this? Any tutorial links? Cheers WWW::Mechanize http://search.cpan.org/dist/WWW-Mechanize/lib/WWW/Mechanize.pm -- To unsubscribe, e-mail: beginners-unsubscr...@

Re: CPAN unavailable

I would recommend using http://metacpan.org And for installing modules, you could try cpanminus: curl -L http://cpanmin.us | perl - --sudo App::cpanminu On 5/20/14, 8:22 PM, Yonghua Peng wrote: Hello, Do you know why these days cpan.org has been unavailable? I always got: 503 Service Unav

Re: converting ip regex to iprange

Maybe this module here? http://search.cpan.org/~mrsam/Net-CIDR-0.11/CIDR.pm On 5/28/14, 3:08 AM, Agnello George wrote: Hi I have about 300 + ip regex in my apache file like this 11\.45\.3[2-9]\..*$ ^11\.45\.4[0-9]\..*$ ^11\.45\.5[0-9]\..*$ I have to convert like this into CIDR . ·11.

Grabbing HTML fields, return them as hash

Hello everyone. Can anyone point me in the direction of a module that will allow me to grab HTML fields and return them as a hash? Thanks. -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: script to match a valid email id

That's a lot of regex. On 7/10/14, 2:25 PM, Ron Bergin wrote: Sunita Pradhan wrote: I do not want to use Cpan modules . -Sunita What do you have against using a cpan module? If you don't want to use the module, then why not simply copy/use the regex that it uses to do the validation? $RFC8

Re: Best way to install perl modules

Use cpanminus. To install: sudo curl -L http://cpanmin.us | perl - --sudo App::cpanminus To use: sudo cpanm Here's the official documentation: http://search.cpan.org/~miyagawa/App-cpanminus-1.7012/lib/App/cpanminus.pm On 10/4/14, 8:32 PM, Benjamin Fernandis wrote: Hi, Many times I face p

Re: Best way to install perl modules

g: aptitude install build-essential --Sam On 10/04/2014 11:39 PM, Benjamin Fernandis wrote: Hi Mike, Thanks for your kind response. I tried cpanm instead of cpan, but many times, it does not install require dependencies f

IO::Socket

Can anyone point me in the direction of more thorough documentation for the IO::Socket module? Seems like the documentation on perl.org is pretty limited. At least, it doesn't feel very thorough to me. http://perldoc.perl.org/IO/Socket.html For example, what exactly does "timeout" affect? Thi

Re: Script for auto conf

I have a feeling this could easier be accomplished with bash. On 12/29/14 9:47 PM, Alan Glait wrote: Hi ! I have the Idea to make a perl script (better than in bash) to make some configuration on linux. I think to have some files like param.txt with some lines like: param_one = ZZZ XX VV

Using regular expressions to populate a variable?

Hey everyone, I'm trying to find information on how I can use regular expressions to populate a variable. I want to pull text between one set of characters and another set of characters and use that to populate my variable. Can anyone point me in the right direction? Thanks. -- To unsubscri

Re: Using regular expressions to populate a variable?

ong here? Thanks. On 1/18/15 11:49 AM, Mike wrote: Hey everyone, I'm trying to find information on how I can use regular expressions to populate a variable. I want to pull text between one set of characters and another set of characters and use that to populate my variable. Can anyone

Re: Using regular expressions to populate a variable?

Thanks. This worked. On 1/18/15 12:28 PM, Jim Gibson wrote: On Jan 18, 2015, at 9:03 AM, Mike wrote: I was able to find match extraction in the perldoc. Here is a snippet of what I have. my $insult = ( $mech->text =~ m/Insulter\ (.*)\ Taken/ ); print "$insult\n"; But $in

Parsing multi column files

So I've got a text file in a multi column format (three columns), each column is separated by a single space. Here is a snippet for reference: artless base-court apple-john bawdy bat-fowling baggage beslubbering beef-witted barnacle I want to be able to randomly select a word from the first col

Re: Parsing multi column files

Thanks. I'll give this a shot. On 1/18/15 7:44 PM, Brandon McCaig wrote: On Sun, Jan 18, 2015 at 07:24:21PM -0500, Shawn H Corey wrote: You would need an array for each column: my $MAX = 10; my @first = (); my @second = (); my @third = (); sub get_columns { my $file = shift @_; o

Re: Parsing multi column files

Thanks for quick lesson and pro-tips. I'll be sure to implement some of these. In case you were wondering, I am indeed using strict and warnings. diagnostics, too. Thanks again. On 1/18/15 9:05 PM, Brandon McCaig wrote: Mike: On Sun, Jan 18, 2015 at 07:00:05PM -0500, Mike wrote: So

Best practice for executing system commands?

Which is generally considered the best practice way of executing system commands from within a Perl program? Should I use backticks or qx//, system(), or exec()? Or is there no "best way" and it's just a matter of what you want to return? -- To unsubscribe, e-mail: beginners-unsubscr...@perl.o

Submitting a form with Mechanize -- Can't find form

Hey everyone, I'm trying to submit a form with WWW::Mechanize to post a new thread on a forum from the command line. The forum also requires an image to be uploaded with it. Anyway...here is my snippet: $mech->submit_form( form_name => 'post', fields => { bo

Re: sftp code to use

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 $zip->members

PAUSE

se 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

I never did receive the e-mails to my AT&T 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:0

Re: Device::SerialPort on debian Buster

16635/ 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 scann

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

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 P

Re: Google Sheets API Data Structure

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

Re: Problem executing command via ssh

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

Geo::WebService::Elevation::USGS

the program and I expect you will get this 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-unsubsc

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

s now. use strict; use warnings; use LWP::UserAgent; $ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0; my $url = "https://nationalmap.gov/epqs/pqs.php";; my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0, } ); $ua->env_proxy; $ua->agent("Mozilla/5.0 (Win

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

3DEP 1/3 arc-second     583.54     Feet   When I go to: https://nationalmap.gov/epqs/pqs.php?x=-90.76983&y=38.72360&units=feet&output=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 tri

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

doubt 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 stri

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

age'; # Does not work #my $test = get('https://glorecords.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

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

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

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

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

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

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&#

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

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

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

Does not work #my $test = get('https://glorecords.blm.gov/default.aspx') or die '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

Re: symlink to "pack"

fo/info/unicode/char/2640/index.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);

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

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 Gi

regular expression

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: reading data from a web site

cript 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, and it i

Re: Error when using the executable perl in client machine

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

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

a bad 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

Re: question about stream data and tk

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 wher

Re: threds question with Tk

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: Can use perl for download photos from facebook?

then FB changes 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

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

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: Fwd: Win32::OLE merge rtf files - table structure missing

unds 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 in a f

  1   2   3   4   5   6   7   8   >