Hi,
Am Freitag, 13. August 2004 15:19 schrieb Errin Larsen:
> Hey guys (and gals, I imagine!),
>
> I'm really new to perl. I've been working through some beginners
> tutorials and now I need (want!) to use perl to overhaul something I
> wrote in the past. I've got a script (in bash) that I use t
Hi,
Am Mittwoch, 10. Dezember 2003 21:19 schrieb Rod:
> What is the easiest way to test the first 3 characters of two words for
> a match.
>
> IE: "dasf" test "dasg" to return positive.
>
>
> rod.
# return true, if the words differ
return unpack( "%32C3", $w1 ^ $w2 );
--
Boris
--
To unsubscr
Hi,
>
> I hope this is the appropriate forum for this question.
>
> I have been looking for a pretty good base system for which to build
> a portal system. (messages, news, other content, weather)
>
Look at PageKit http://www.pagekit.org
--
cu boris
Letzte Worte eines Handgranatenwerfers
Hi Martin,
>
>
> i have a long text file. in this text file several strings of the form:
> ### filename.jpg ### are embedded.
>
> how should a regex look that takes following:
>
> ### filename.jpg ###
>
> and returns
>
try this.
s/### (\w+\.jpg) ###//;
the filename is in $1
>
>
> and th
Hi,
> I have some text here that I have placed in a string. I want to be able
> to extract words between text of my choice. For example in the
> string...
>
> $string = "Hello world In: crud all Your.";
>
> ($mytext) = $string =~ /In:(.*)Your/;
>
> The above works fine but how can I tell my re
Hi,
i suggest to use Text::Wrap.
Also you can type this maybe it is what you want.
perl -ne 'print "$1\n" while (/\s*((?:.{1,78})|\S+)\b/g)' < your_text.txt
Am Samstag, 9. März 2002 19:42 hast Du geschrieben:
> could someone please help me make this bit of code
> more efficient? I am trying
hi Debbie,
perhaps this is what you want.
#!/usr/bin/perl -w
use strict;
open STATES, ") {
$num =~ s/^\s+//;
$num =~ s/\s+$//;
push @{ $states{$num} }, $state;
}
for (keys %states) {
print "$_ ", join ( ',', @{ $states{$_} } ), "\n";
}
Am Dienstag, 24. Juli 2001 21:03 schrieb Debbie
