On 07/10/2011 17:25, Marc wrote:
On Oct 7, 2011, at 8:07 AM, Rob Dixon wrote:
Capturing parenthese should be avoided unless the are needed
This I don't understand. Since we're using $1 we need them, no?
$string =~ s/\b(?:[aeiouy]{3,4}|[bcdfghjklmnpqrstvwxz]{3,4})\b/\U$1/gi;
Thi
At 09:54 +0200 7/10/11, marcos rebelo wrote:
Unfortunatly someone has the code: < use encoding 'utf8'; >
and now I get:
###
$VAR1 = {
'Subject' => "\x{fffd}\x{fffd}my subject",
'CreationDate' => 'D:20111006161347+02\'00\'
On Fri, Oct 7, 2011 at 5:39 AM, Igor Dovgiy wrote:
> Hi Marcos,
> my %pdf_info = $pdf->info();
> foreach (keys $pdf_info) {
>$pdf_info{$_} =~ s/[^\x00-\xFF]//g;
> }
>
Perhaps that'll do? )
>
>
Nope. That'll restrict the text to the latin-1 charset.
On Fri, Oct 7, 2011 at 12:19 PM, Brandon McCaig wrote:
>
> I know next to nothing about Unicode programming (in any
> language), but it seems to always be the same prefix. Printing
> this out in Windows' cmd shell seems to yield the same prefix
> that I see in UTF-8 files with a BOM (byte-order m
On Fri, Oct 7, 2011 at 4:54 AM, marcos rebelo wrote:
> Hi all
>
> I'm trying to get the info from a PDF with a code like:
>
> ###
>
> ...
> use Data::Dumper;
> use PDF::API2;
> ...
> my $pdf = PDF::API2->open('/home/.../PDF.pdf');
> print Dumper
On Oct 7, 2011, at 8:07 AM, Rob Dixon wrote:
> Just add the /i modifer (as you had originally) and there is no need to list
> both the upper and lower case alphabetics.
Of course. Err... :\
> Capturing parenthese should be avoided unless the are needed
This I don't understand
On Fri, Oct 7, 2011 at 4:39 AM, Igor Dovgiy wrote:
>> $VAR1 = {
>> 'Subject' => "\x{fffd}\x{fffd}my subject",
>> 'CreationDate' => 'D:20111006161347+02\'00\'',
>> 'Producer' => "\x{fffd}\x{fffd}LibreOffice 3.3",
>> 'Creator' => "\x{fffd}\x{fffd}Writer",
>>
On 07/10/2011 01:38, Marc wrote:
> On Oct 6, 2011, at 4:44 PM, Jim Gibson wrote:
>
>> You should go back to your original character class of [bcdfghjklmnpqrstvwxz]
>
> Making this change fixed the "Rex'S" problem, but it didn't capitalize
> LKJ because the rest of the code had capitalized
Stop spamming us with stop mail requests and use the instructions included
at the bottom of the email to unsubscribe.
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
On Fri, Oct 7, 2011 at 6:24 AM, ganesh vigne
>
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
>
Read the footer of the mail
Stop mail
On 10/6/11, Chris Stinemetz wrote:
> trying to learn smart matching in an exercise.
>
> Why does this program output "odd" when I input an even number?
>
> Thank you,
>
> Chris
>
> #!/usr/bin/perl
>
> use warnings;
> use strict;
>
> use 5.010;
>
> say "Checking the number <$ARGV[0]>";
>
Stop the mail
On 10/7/11, Marc wrote:
> On Sep 8, 2011, at 10:13 AM, Rob Dixon wrote:
>
>> my $string = 'The Kcl Group';
>>
>> $string =~ s/\b([aeiouy]{3,4}|[^aeiouy]{3,4})\b/\U$1/ig;
>>
>> print $string, "\n";
>
> I'd like to revisit this, if I could. I've modified the above regex so
> a
You know, it shouldn't be mile long. )
$string =~ s! \b (?=[a-z]{3,4}) ([aeiouy]{3,4}|[^aeiouy]{3,4}) \b !\U$1!igx;
-- iD
2011/10/7 Marc
> On Oct 6, 2011, at 4:44 PM, Jim Gibson wrote:
>
> > You should go back to your original character class of
> [bcdfghjklmnpqrstvwxz]
>
> Making this
Hi Marcos,
my %pdf_info = $pdf->info();
foreach (keys $pdf_info) {
$pdf_info{$_} =~ s/[^\x00-\xFF]//g;
}
Perhaps that'll do? )
-- iD
2011/10/7 marcos rebelo
> Hi all
>
> I'm trying to get the info from a PDF with a code like:
>
> ###
>
>
Hi all
I'm trying to get the info from a PDF with a code like:
###
...
use Data::Dumper;
use PDF::API2;
...
my $pdf = PDF::API2->open('/home/.../PDF.pdf');
print Dumper +{ $pdf->info() };
###
15 matches
Mail list logo
