Hello,
Try something like this: rename 's/(.*?)\s(\d+).jpg$/$1$2.jpg/' *.jpg
But make a backup first.
Best regards,
Mike
On 2/17/25 18:38, hput wrote:
I have several hundred *.jpg files with this pattern
Actual example:
'AtlantaVisitAndGrandmaHands 056.jpg'
I sure couldn't figure out how to test for a mount
with that module. And I did go to 'man 2 mount'.
Still couldn't figure it out.
Mike
On 6/1/24 18:29, Jeff P via beginners wrote:
Of course, I can use system calls and call the unix mount
or mountpoint applications b
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
.
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 setting
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/
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/
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
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
five x's).
To get five 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
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
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 learn
com/r/perl/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:
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
"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&#x
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
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 su
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 encrypt
\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
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
l 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
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
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
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
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
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
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
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
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
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 'gen
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
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
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
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);
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
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
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&#
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
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
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
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
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
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
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
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
link';# contains links to files in testdel
remove_tree($dir,{safe => 1});
Will not remove files in testdel that are linked to in testdellink
thanks
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
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
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
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
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
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 ((gmt
y can 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/
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
se do.
Mike
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
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
file. I'm not 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...
#x27;
# doesn't match '(?^ms:ok$)'
The install still running, 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:
rness
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
i
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
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:
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
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 fe
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 boatlo
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
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
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->member
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
I hope 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.zqK2jx8ukE6m68Azc7nrsgRdcT
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:
>
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!
>
>
/(?<= )-/:/g;
any help appreciated
Mike
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
Date:
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
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 imp
the last time I received a post was 3/17/2018.
Mike
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
th 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 -
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
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=>\&wanted1,preprocess=>\&preprocess1},$top) ;
sub wanted1 {
if ($cnt1 <=1000){
my $file = $File::Find::name;
if (grep
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-
hat one line to:
unless ($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, 2
y 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/
irect 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 P
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 wrote:
> On Sun, Jul 9, 2017, 19:37 Mike Martin wrote:
>
>> Hi
>> I am trying to use Open3 to capture stderr and a
fps= 20',setsar='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,
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
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
achments go here/;
my @parts;
push @parts,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 /: /
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-diges
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
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
wrote:
> Okay I will try it.. Thank u
>
> Ankita
> On 6 Jan 2016 22:44, "Mike D" wrote:
>
>> In the future, please use the Reply A
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:
http://supe
nks,
Ken Wolcott
FYI, my ActiveState PPM ver 4.17 pointed to repository:
http://ppm4.activestate.com/MSWin32-x64/5.16/1603/package.xml
does list Devel-Trace version 0.12.
I did not try to install it.
I have never had an ActiveState Perl DevKit license, or
certainly didn't pay for it.
Mike
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
he 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
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=
'(?=^(?:(?!(?:datab|network|system)).)*$).*(?:Adm(?:in(?:i?strat(?:o
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.
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...@pe
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
rrors
Date: Mon, 25 May 2015 12:13:11 -0500
From: Lawrence Statton
To: beginners@perl.org
On 05/25/2015 12:02 PM, Mike Blezien wrote:
Hello,
I recently setup a Paypal IPN script which w
1 - 100 of 775 matches
Mail list logo
