[30776] in Perl-Users-Digest
Perl-Users Digest, Issue: 2021 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Dec 1 14:09:47 2008
Date: Mon, 1 Dec 2008 11:09:10 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 1 Dec 2008 Volume: 11 Number: 2021
Today's topics:
child lolita, russian lolitas, freedom bbs, illegal pre <dinacoqeaola280@gmail.com>
Re: child lolita, russian lolitas, freedom bbs, illegal jihyrunuhehemel27036@gmail.com
Re: family naturism preteen, naturist preteen, young pr jihyrunuhehemel27036@gmail.com
family naturism preteen, naturist preteen, young pretee <dinacoqeaola280@gmail.com>
Re: FAQ 9.4 How do I remove HTML from a string? sln@netherlands.com
has someone an idea how to stop the spam mail in the gr <michaelgang@gmail.com>
Re: has someone an idea how to stop the spam mail in th <smallpond@juno.com>
Re: has someone an idea how to stop the spam mail in th <michaelgang@gmail.com>
Re: Help: Process data <tadmc@seesig.invalid>
Re: how to force a symbolic link? <tadmc@seesig.invalid>
little girls bbs, underground bbs, bbs loli, lolita gir <dinacoqeaola280@gmail.com>
Re: little girls bbs, underground bbs, bbs loli, lolita jihyrunuhehemel27036@gmail.com
Re: lolita gallery, preteen thong models, preteen rape, jihyrunuhehemel27036@gmail.com
lolita gallery, preteen thong models, preteen rape, pre <dinacoqeaola280@gmail.com>
Re: Package Installation - can it be done locally? <noemail@nothere.com>
Re: Perl module for managing user groups (UNIX) (J.D. Baldwin)
Re: Perl module for managing user groups (UNIX) <hjp-usenet2@hjp.at>
Re: preteens in lingerie, underage girl, naturist prete jihyrunuhehemel27036@gmail.com
preteens in lingerie, underage girl, naturist preteens, <dinacoqeaola280@gmail.com>
Re: Unofficial Phone, ,the most cheap mobile phones fro <sriseetha1986@gmail.com>
Re: updating Perl on an old BSD machine <glex_no-spam@qwest-spam-no.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 1 Dec 2008 05:35:31 -0800 (PST)
From: dinacoqeaola280 <dinacoqeaola280@gmail.com>
Subject: child lolita, russian lolitas, freedom bbs, illegal preteen, free lolita galleries!
Message-Id: <1a0612aa-6dbf-4584-8e94-f9676064b28b@v13g2000yqm.googlegroups.com>
**
Some illegal links :)
**
http://adultsexkey.com/folder/1/0001.avi
http://adultsexkey.com/folder/1/0002.avi
http://adultsexkey.com/folder/1/0003.avi
http://adultsexkey.com/folder/1/0004.avi
http://adultsexkey.com/folder/1/0005.avi
http://adultsexkey.com/folder/1/0006.avi
http://adultsexkey.com/folder/1/0007.avi
http://adultsexkey.com/folder/1/0008.avi
http://adultsexkey.com/folder/1/0009.avi
http://adultsexkey.com/folder/1/0010.avi
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
------------------------------
Date: Mon, 1 Dec 2008 05:51:16 -0800 (PST)
From: jihyrunuhehemel27036@gmail.com
Subject: Re: child lolita, russian lolitas, freedom bbs, illegal preteen, free lolita galleries!
Message-Id: <dbc90c4f-9dfb-44a3-be97-1532a49a82d3@a12g2000yqm.googlegroups.com>
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/c2665d943e0e2eaf
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/3e9c93e30a9b47ff
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/358652c14ac62c38
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/5f64d1e978d8f0c8
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/ce64830b477f86fc
http://groups.google.com/group/sci.math/browse_thread/thread/566ea0293e42214e
http://groups.google.com/group/sci.math/browse_thread/thread/6e69ceb02cdd9cf0
http://groups.google.com/group/sci.math/browse_thread/thread/6bf70665f6fb6554
http://groups.google.com/group/sci.math/browse_thread/thread/66412c0e5c9ecae7
http://groups.google.com/group/sci.math/browse_thread/thread/c251d4ad109fab7c
http://groups.google.com/group/alt.usage.english/browse_thread/thread/67a408c315d1238e
http://groups.google.com/group/alt.usage.english/browse_thread/thread/7352be5da6dad72f
http://groups.google.com/group/alt.usage.english/browse_thread/thread/53e7cc9b2b3d75a1
http://groups.google.com/group/alt.usage.english/browse_thread/thread/c7f62fd51f831f7c
http://groups.google.com/group/alt.usage.english/browse_thread/thread/94bb7925fe2c2189
------------------------------
Date: Mon, 1 Dec 2008 05:51:06 -0800 (PST)
From: jihyrunuhehemel27036@gmail.com
Subject: Re: family naturism preteen, naturist preteen, young preteen in thong, teen bbs, innocent preteens!
Message-Id: <1101b7d0-b393-4c45-894f-433caa03c56a@k36g2000yqe.googlegroups.com>
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/c2665d943e0e2eaf
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/3e9c93e30a9b47ff
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/358652c14ac62c38
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/5f64d1e978d8f0c8
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/ce64830b477f86fc
http://groups.google.com/group/sci.math/browse_thread/thread/566ea0293e42214e
http://groups.google.com/group/sci.math/browse_thread/thread/6e69ceb02cdd9cf0
http://groups.google.com/group/sci.math/browse_thread/thread/6bf70665f6fb6554
http://groups.google.com/group/sci.math/browse_thread/thread/66412c0e5c9ecae7
http://groups.google.com/group/sci.math/browse_thread/thread/c251d4ad109fab7c
http://groups.google.com/group/alt.usage.english/browse_thread/thread/67a408c315d1238e
http://groups.google.com/group/alt.usage.english/browse_thread/thread/7352be5da6dad72f
http://groups.google.com/group/alt.usage.english/browse_thread/thread/53e7cc9b2b3d75a1
http://groups.google.com/group/alt.usage.english/browse_thread/thread/c7f62fd51f831f7c
http://groups.google.com/group/alt.usage.english/browse_thread/thread/94bb7925fe2c2189
------------------------------
Date: Mon, 1 Dec 2008 05:36:09 -0800 (PST)
From: dinacoqeaola280 <dinacoqeaola280@gmail.com>
Subject: family naturism preteen, naturist preteen, young preteen in thong, teen bbs, innocent preteens!
Message-Id: <40bb7c3c-1fe6-4bba-ac65-46c5ca6afa4d@g38g2000yqd.googlegroups.com>
**
Some illegal links :)
**
http://adultsexkey.com/folder/1/0001.avi
http://adultsexkey.com/folder/1/0002.avi
http://adultsexkey.com/folder/1/0003.avi
http://adultsexkey.com/folder/1/0004.avi
http://adultsexkey.com/folder/1/0005.avi
http://adultsexkey.com/folder/1/0006.avi
http://adultsexkey.com/folder/1/0007.avi
http://adultsexkey.com/folder/1/0008.avi
http://adultsexkey.com/folder/1/0009.avi
http://adultsexkey.com/folder/1/0010.avi
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
------------------------------
Date: Mon, 01 Dec 2008 18:19:21 GMT
From: sln@netherlands.com
Subject: Re: FAQ 9.4 How do I remove HTML from a string?
Message-Id: <q398j4lrtah0k8sbgbmr7dtlmu5rc99v1u@4ax.com>
On Fri, 28 Nov 2008 22:25:04 GMT, sln@netherlands.com wrote:
Solved the $Name regex puzzle, needed to let it be greedy.
Sped it up %15 as a byproduct.
I thought I was done with the regex, my test suites missed
this important condition.
I'm going to add conditionals. I didn't want to before but
I see I will need it. There is a pseudo html mode that filters
most errant behavior. The rest of the program is a beast of
utilities. I just want to finish this thing, post it and be
done with it. Keep those filters on.
Thanks for all your (I mean you are, you're a) help !
sln
@UC_Nstart = (
"\\x{C0}-\\x{D6}",
"\\x{D8}-\\x{F6}",
"\\x{F8}-\\x{2FF}",
"\\x{370}-\\x{37D}",
"\\x{37F}-\\x{1FFF}",
"\\x{200C}-\\x{200D}",
"\\x{2070}-\\x{218F}",
"\\x{2C00}-\\x{2FEF}",
"\\x{3001}-\\x{D7FF}",
"\\x{F900}-\\x{FDCF}",
"\\x{FDF0}-\\x{FFFD}",
"\\x{10000}-\\x{EFFFF}",
);
@UC_Nchar = (
"\\x{B7}",
"\\x{0300}-\\x{036F}",
"\\x{203F}-\\x{2040}",
);
$Nstrt = "[A-Za-z_:".join ('',@UC_Nstart)."]";
$Nchar = "[-\\w:\\.".join ('',@UC_Nchar).join ('',@UC_Nstart)."]";
$Name = "(?:$Nstrt$Nchar*)";
## v2 parse regex:
## -------------------------------------------------
$RxParseXP1 =
qr/(?:<(?:(?:(\/*)($Name)\s*(\/*))|(?:($Name)(\s+(?:(?:(?:".*?")|(?:'.*?'))|(?:[^>]*?))+)\s*(\/?))|(?:\?(.*?)\?)|(?:!(?:(?:DOCTYPE(.*?))|(?:\[CDATA\[(.*?)\]\])|(?:--(.*?)--)|(?:ATTLIST(.*?))|(?:ENTITY(.*?))|(?:ELEMENT(.*?)))))>)|([^<]*)(<?)/s;
# ( <( ( 1 12 2 3 3)|( 4 45 ( ( ( )|( ))|( )) 5 6 6)|( 7 7 )|( !( ( 8 8)|( 9 9 )|( 0 0 )|(
1 1)|( 2 2)|( 3 3))))>)|4 45 5
$RxAttr = qr/\G\s+(?:(?:($Name)\s*=\s*("|'|))|($Name))/;
$RxAttr_DL1 = qr/\G(?:([^'&<]*?)|([^'<]*?))'/;
$RxAttr_DL2 = qr/\G(?:([^"&<]*?)|([^"<]*?))"/;
$RxAttr_DL3 = qr/\G([^"'=<\s]+)/;
$RxPi = qr/^($Name)\s+(.*?)$/s;
$RxENTITY = qr/^\s+(?:($Name)|(?:%\s+($Name)))\s+(.*?)$/s;
sub _getAttrARRAY
{
my ($self, $attrstr, $conv_ent, $hresult) = @_;
@{$hresult->{'attrsref'}} = ();
$hresult->{'badattrs'} = '';
$hresult->{'dupattrs'} = '';
$hresult->{'noquoteattrs'} = '';
$hresult->{'errstr'} = '';
my %hseen = ();
my $aref = $hresult->{'attrsref'};
my ($alt_attval, $attval, $rx, $ndx, $DL3);
# my $tmpstr = $attrstr;
my $match = 0;
while ($attrstr =~ /$RxAttr/gc)
{
$match = 1;
if (defined $2)
{
$ndx = push @{$aref},$1;
$DL3 = 0;
if ($2 eq "'") {
$rx = \$RxAttr_DL1;
}
elsif ($2 eq '"') {
$rx = \$RxAttr_DL2;
} else {
# no quotes
$rx = \$RxAttr_DL3;
$DL3 = 1;
}
if (++$hseen{$1} == 2) {
$hresult->{'dupattrs'} .= ", $1";
$hresult->{'dupattrs'} =~ s/^(?:, )+//;
}
if ($attrstr =~ /$$rx/gc) {
if (!$DL3)
{
## normal quoted value
if (defined $1) {
push @{$aref},$1;
next;
}
$attval = $2;
if ($conv_ent && defined ($alt_attval = _convertEntities ($self, \$attval))) {
push @{$aref},$$alt_attval;
next;
}
push @{$aref},$attval;
next;
}
## bad attrib, value is not quoted
$attval = $1;
if ($conv_ent && defined ($alt_attval = _convertEntities ($self, \$attval))) {
push @{$aref},$$alt_attval;
} else {
push @{$aref},$attval;
}
$hresult->{'noquoteattrs'} .= ", ".$aref->[$ndx-1];
$hresult->{'noquoteattrs'} =~ s/^(?:, )+//;
next;
}
## bad value, its either '<' or no ["'] closure
$hresult->{'badattrs'} .= ", ".$aref->[$ndx-1];
$hresult->{'badattrs'} =~ s/^(?:, )+//;
push @{$aref},'UNDEF_ATTRVAL';
# trim up to '<', otherwise its reported as
# improperly quoted or missing value
$attrstr = substr ($attrstr, pos($attrstr));
$attrstr =~ s/^[^<]+//;
} else {
## attrib with no attrib value
## (standalone atrribute only)
$ndx = push @{$aref},$3;
if (++$hseen{$3} == 2) {
$hresult->{'dupattrs'} .= ", $3";
$hresult->{'dupattrs'} =~ s/^(?:, )+//;
}
$hresult->{'badattrs'} .= ", ".$aref->[$ndx-1];
$hresult->{'badattrs'} =~ s/^(?:, )+//;
push @{$aref},'UNDEF_ATTRVAL';
next;
}
# bad, return that part of string which is in error
$hresult->{'errstr'} = $attrstr;
return $hresult;
}
pos($attrstr) = 0 if (!$match);
if (length($attrstr) > pos($attrstr)) {
$attrstr = substr ($attrstr, pos($attrstr));
$attrstr =~ s/^\s+//; $attrstr =~ s/\s+$//;
# bad, return that part of string which is in error
# print "-BAD-:$tmpstr\n";
$hresult->{'errstr'} = $attrstr if (length($attrstr));
}
return $hresult;
}
--------------------------------------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D "MSHTML 6.00.2900.3395" name=3DGENERATOR>
<STYLE></STYLE>
<test name = " thi<s is a " test>
</HEAD>
<BODY bgColor=3D#ffffff>
<here n="--------------------------------------------">
<IMG SRC = "foo.gif" ALT = "A > B">
<IMG SRC = "foo.gif"
ALT = "A > B">
<!-- <A comment> -->
<NN & a>
<AA &>
<PP name1='val' name1 name2
name
= #5i5k
>
<PP ok='this is ok'
&& a
>
<script>if (a<b && a>c)</script>
<# Just data #>
<![INCLUDE CDATA [ >>>>>>>>>>>> ]]>
If HTML comments include other tags, those solutions would also break on
text like this:
<!-- This section commented out.
<B>You can't see me!</B>
-->
<here n="--------------------------------------------">
<DIV> </DIV></BODY></HTML>
#########################################################################
# $p->setMode(
# 'html' => 1,
# 'debug_markup'=> 1,
# 'debug'=> 1,
# 'resume_onerror'=> 1 );
#########################################################################
RXParse 2
new parse _: SCALAR ref
______________________________
doctype_h _: HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
--------------------
char _:
--------------------
start _: HTML
--------------------
start _: HEAD
--------------------
char _:
--------------------
Markup: <META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
rp_error_08, invalid, missing or extra token in attribute asignment (line 4, col 22): "text/html; =
charset=3Diso-8859-1"
start _: META
http-equiv = 3DContent-Type
content = 3D
--------------------
char _:
--------------------
Markup: <META content=3D "MSHTML 6.00.2900.3395" name=3DGENERATOR>
rp_error_08, invalid, missing or extra token in attribute asignment (line 5, col 58): "MSHTML 6.00.2900.3395" name=3DGENERATOR
start _: META
content = 3D
--------------------
char _:
--------------------
start _: STYLE
--------------------
end _: /STYLE
--------------------
char _:
--------------------
Markup: <test name = " thi<s is a " test>
rp_error_08, invalid, missing or extra token in attribute asignment (line 9, col 33): <s is a " test
start _: test
name = UNDEF_ATTRVAL
--------------------
char _:
--------------------
end _: /HEAD
--------------------
char _:
--------------------
start _: BODY
bgColor = 3D#ffffff
--------------------
char _:
--------------------
start _: here
n = --------------------------------------------
--------------------
char _:
--------------------
start _: IMG
SRC = foo.gif
ALT = A > B
--------------------
char _:
--------------------
start _: IMG
SRC = foo.gif
ALT = A > B
--------------------
char _:
--------------------
comnt _: <A comment>
--------------------
char _:
--------------------
Markup: <NN & a>
rp_error_08, invalid, missing or extra token in attribute asignment (line 21, col 8): & a
start _: NN
--------------------
char _:
--------------------
Markup: <AA &>
rp_error_08, invalid, missing or extra token in attribute asignment (line 22, col 6): &
start _: AA
--------------------
char _:
--------------------
Markup: <PP name1='val' name1 name2
name
= #5i5k
>
rp_error_36, attribute is duplicated (line 27, col 1): 'name1'
start _: PP
name1 = val
name1 = UNDEF_ATTRVAL
name2 = UNDEF_ATTRVAL
name = #5i5k
--------------------
char _:
--------------------
Markup: <PP ok='this is ok'
&& a
>
rp_error_08, invalid, missing or extra token in attribute asignment (line 33, col 1): && a
start _: PP
ok = this is ok
--------------------
char _:
--------------------
start _: script
--------------------
char _: if (a
--------------------
Markup: <b && a>
rp_error_08, invalid, missing or extra token in attribute asignment (line 35, col 29): && a
start _: b
--------------------
char _: c)
--------------------
end _: /script
--------------------
char _:
<# Just data #>
<![INCLUDE CDATA [ >>>>>>>>>>>> ]]>
If HTML comments include other tags, those solutions would also break on
text like this:
--------------------
comnt _: This section commented out.
<B>You can't see me!</B>
--------------------
char _:
--------------------
start _: here
n = --------------------------------------------
--------------------
char _:
--------------------
start _: DIV
--------------------
char _:
--------------------
end _: /DIV
--------------------
end _: /BODY
--------------------
end _: /HTML
--------------------
TOTAL SEGMENTS = 49
______________________________
end parse _: 8 errors
#########################################################################
# $p->setMode(
# 'debug_markup'=> 1,
# 'debug'=>1,
# 'resume_onerror'=> 1 );
#########################################################################
# output:
RXParse 2
new parse _: SCALAR ref
______________________________
doctype_h _: HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
--------------------
char _:
--------------------
start _: HTML
--------------------
start _: HEAD
--------------------
char _:
--------------------
Markup: <META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
rp_error_08, invalid, missing or extra token in attribute asignment (line 4, col 22): "text/html; =
charset=3Diso-8859-1"
rp_error_37, attribute has unquoted value (line 4, col 22): 'http-equiv, content'
start _: META
http-equiv = 3DContent-Type
content = 3D
--------------------
char _:
--------------------
Markup: <META content=3D "MSHTML 6.00.2900.3395" name=3DGENERATOR>
rp_error_08, invalid, missing or extra token in attribute asignment (line 5, col 58): "MSHTML 6.00.2900.3395" name=3DGENERATOR
rp_error_37, attribute has unquoted value (line 5, col 58): 'content'
start _: META
content = 3D
--------------------
char _:
--------------------
start _: STYLE
--------------------
end _: /STYLE
--------------------
char _:
--------------------
Markup: <test name = " thi<s is a " test>
rp_error_08, invalid, missing or extra token in attribute asignment (line 9, col 33): <s is a " test
rp_error_35, attribute is missing a value (line 9, col 33): 'name'
start _: test
name = UNDEF_ATTRVAL
--------------------
char _:
--------------------
Markup: </HEAD>
rp_error_05, expected closing tag '/test' (line 10, col 7)
end _: /HEAD
--------------------
char _:
--------------------
Markup: <BODY bgColor=3D#ffffff>
rp_error_37, attribute has unquoted value (line 11, col 24): 'bgColor'
start _: BODY
bgColor = 3D#ffffff
--------------------
char _:
--------------------
start _: here
n = --------------------------------------------
--------------------
char _:
--------------------
start _: IMG
SRC = foo.gif
ALT = A > B
--------------------
char _:
--------------------
start _: IMG
SRC = foo.gif
ALT = A > B
--------------------
char _:
--------------------
comnt _: <A comment>
--------------------
char _:
--------------------
Markup: <NN & a>
rp_error_08, invalid, missing or extra token in attribute asignment (line 21, col 8): & a
start _: NN
--------------------
char _:
--------------------
Markup: <AA &>
rp_error_08, invalid, missing or extra token in attribute asignment (line 22, col 6): &
start _: AA
--------------------
char _:
--------------------
Markup: <PP name1='val' name1 name2
name
= #5i5k
>
rp_error_36, attribute is duplicated (line 27, col 1): 'name1'
rp_error_35, attribute is missing a value (line 27, col 1): 'name1, name2'
rp_error_37, attribute has unquoted value (line 27, col 1): 'name'
start _: PP
name1 = val
name1 = UNDEF_ATTRVAL
name2 = UNDEF_ATTRVAL
name = #5i5k
--------------------
char _:
--------------------
Markup: <PP ok='this is ok'
&& a
>
rp_error_08, invalid, missing or extra token in attribute asignment (line 33, col 1): && a
start _: PP
ok = this is ok
--------------------
char _:
--------------------
start _: script
--------------------
char _: if (a
--------------------
Markup: <b && a>
rp_error_08, invalid, missing or extra token in attribute asignment (line 35, col 29): && a
start _: b
--------------------
char _: c)
--------------------
Markup: </script>
rp_error_05, expected closing tag '/b' (line 35, col 40)
end _: /script
--------------------
Markup:
<# Just data #>
<![INCLUDE CDATA [ >>>>>>>>>>>> ]]>
If HTML comments include other tags, those solutions would also break on
text like this:
rp_error_01, markup or reserved character in content (line 44, col 8), malformed element? : <# Just data #>,, ___...
char _:
<# Just data #>
<![INCLUDE CDATA [ >>>>>>>>>>>> ]]>
If HTML comments include other tags, those solutions would also break on
text like this:
--------------------
comnt _: This section commented out.
<B>You can't see me!</B>
--------------------
char _:
--------------------
start _: here
n = --------------------------------------------
--------------------
char _:
--------------------
start _: DIV
--------------------
char _:
--------------------
end _: /DIV
--------------------
Markup: </BODY>
rp_error_05, expected closing tag '/here' (line 50, col 24)
end _: /BODY
--------------------
Markup: </HTML>
rp_error_05, expected closing tag '/script' (line 50, col 31)
end _: /HTML
--------------------
rp_error_11, missing end tag '/PP, /PP, /AA, /NN, /IMG, /IMG, /here, /BODY, /META, /META, /HEAD, /HTML'
TOTAL SEGMENTS = 49
______________________________
end parse _: 20 errors
------------------------------
Date: Mon, 1 Dec 2008 07:14:57 -0800 (PST)
From: david <michaelgang@gmail.com>
Subject: has someone an idea how to stop the spam mail in the group
Message-Id: <bc9591be-4a50-4d65-a110-6dba11dd9c88@u14g2000yqg.googlegroups.com>
HI all,
Has someone an idea how to stop the spamming in the list.
This is really disgusting.
Thanks in advance,
David
------------------------------
Date: Mon, 1 Dec 2008 08:36:10 -0800 (PST)
From: smallpond <smallpond@juno.com>
Subject: Re: has someone an idea how to stop the spam mail in the group
Message-Id: <75b54b90-64af-43fa-94d5-b798415f6c7a@u14g2000yqg.googlegroups.com>
On Dec 1, 10:14 am, david <michaelg...@gmail.com> wrote:
> HI all,
>
> Has someone an idea how to stop the spamming in the list.
>
> This is really disgusting.
>
> Thanks in advance,
> David
You could do it all in perl. CPAN has a module News::NNTP
Extract the posting host IP address, do a whois lookup on it to
get the abuse address, send email to the abuse address with
a copy of the spam.
------------------------------
Date: Mon, 1 Dec 2008 08:44:35 -0800 (PST)
From: david <michaelgang@gmail.com>
Subject: Re: has someone an idea how to stop the spam mail in the group
Message-Id: <22b86432-d854-4433-81d9-00fc2f023728@13g2000yql.googlegroups.com>
On Dec 1, 6:36=A0pm, smallpond <smallp...@juno.com> wrote:
> On Dec 1, 10:14 am, david <michaelg...@gmail.com> wrote:
>
> > HI all,
>
> > Has someone an idea how to stop the spamming in the list.
>
> > This is really disgusting.
>
> > Thanks in advance,
> > David
>
> You could do it all in perl. =A0CPAN has a module News::NNTP
>
> Extract the posting host IP address, do a whois lookup on it to
> get the abuse address, send email to the abuse address with
> a copy of the spam.
Good idea. Would be great to introduce it here
------------------------------
Date: Mon, 1 Dec 2008 06:12:00 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: Help: Process data
Message-Id: <slrngj7l4g.9qh.tadmc@tadmc30.sbcglobal.net>
Tad J McClellan <tadmc@seesig.invalid> wrote:
> Amy Lee <openlinuxsource@gmail.com> wrote:
>
>> And what I want to do is count how many continuous 0 and 1 present (the
>> second column). I have set up a minimal value such 5. All of them who has
>> less than 5 continuous 0 and 1 will ommit and larger than or equal to 5 I
>> will save as result.
>>
>> Could you show me some ideas to do this?
>
>
> my @buffer;
> my $value = '666';
> while ( <DATA> ) {
> my(undef, $this) = split;
> if ( $this == $value )
> { push @buffer, $_ }
> else {
> print @buffer, "\n" if @buffer >= 5;
> $value = $this;
> @buffer = ();
Oops! My code has an off-by-one error. The line above should instead be:
@buffer = ($_);
> }
>
> }
>
>
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Mon, 1 Dec 2008 06:22:01 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: how to force a symbolic link?
Message-Id: <slrngj7ln9.9qh.tadmc@tadmc30.sbcglobal.net>
sri <sriseetha1986@gmail.com> wrote:
> On Nov 30, 1:35 am, Eric Pozharski <why...@pozharski.name> wrote:
>> On 2008-11-29, John W. Krahn <some...@example.com> wrote:
>>
>> > Peng Yu wrote:
>>
>> >> In shell, 'ln' has an option -f. I'm wondering if there is such option
^^ ^^
^^ ^^
>> >> for symlink in perl.
>> Anyway there's race, so:
^^^^^^^^^^^^
^^^^^^^^^^^^
[ snip code ]
> Why are you trying much complex method to create a symbolic link ??
Two reasons.
First, your code does not even do what was asked for. If $link already
exists it will not be replaced like it would with "ln -f".
Second, he is trying to avoid the race condition he mentioned.
> my ($link, $yourfile) = ( @ARGV );
> symlink $yourfile, $link or die "symlink: die $!";
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Mon, 1 Dec 2008 05:37:34 -0800 (PST)
From: dinacoqeaola280 <dinacoqeaola280@gmail.com>
Subject: little girls bbs, underground bbs, bbs loli, lolita girls young, underage pussy!
Message-Id: <0db40beb-2a8d-4775-a58c-b02b170d8cc5@l42g2000yqe.googlegroups.com>
**
Some illegal links :)
**
http://adultsexkey.com/folder/1/0001.avi
http://adultsexkey.com/folder/1/0002.avi
http://adultsexkey.com/folder/1/0003.avi
http://adultsexkey.com/folder/1/0004.avi
http://adultsexkey.com/folder/1/0005.avi
http://adultsexkey.com/folder/1/0006.avi
http://adultsexkey.com/folder/1/0007.avi
http://adultsexkey.com/folder/1/0008.avi
http://adultsexkey.com/folder/1/0009.avi
http://adultsexkey.com/folder/1/0010.avi
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
------------------------------
Date: Mon, 1 Dec 2008 05:50:16 -0800 (PST)
From: jihyrunuhehemel27036@gmail.com
Subject: Re: little girls bbs, underground bbs, bbs loli, lolita girls young, underage pussy!
Message-Id: <7a5045ae-eba0-4f8c-bf29-f59370fe8edd@j32g2000yqn.googlegroups.com>
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/c2665d943e0e2eaf
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/3e9c93e30a9b47ff
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/358652c14ac62c38
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/5f64d1e978d8f0c8
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/ce64830b477f86fc
http://groups.google.com/group/sci.math/browse_thread/thread/566ea0293e42214e
http://groups.google.com/group/sci.math/browse_thread/thread/6e69ceb02cdd9cf0
http://groups.google.com/group/sci.math/browse_thread/thread/6bf70665f6fb6554
http://groups.google.com/group/sci.math/browse_thread/thread/66412c0e5c9ecae7
http://groups.google.com/group/sci.math/browse_thread/thread/c251d4ad109fab7c
http://groups.google.com/group/alt.usage.english/browse_thread/thread/67a408c315d1238e
http://groups.google.com/group/alt.usage.english/browse_thread/thread/7352be5da6dad72f
http://groups.google.com/group/alt.usage.english/browse_thread/thread/53e7cc9b2b3d75a1
http://groups.google.com/group/alt.usage.english/browse_thread/thread/c7f62fd51f831f7c
http://groups.google.com/group/alt.usage.english/browse_thread/thread/94bb7925fe2c2189
------------------------------
Date: Mon, 1 Dec 2008 05:50:44 -0800 (PST)
From: jihyrunuhehemel27036@gmail.com
Subject: Re: lolita gallery, preteen thong models, preteen rape, preteen hentai, illegal drugs!
Message-Id: <8034473f-5829-464e-8878-2acb2cfee62f@f20g2000yqg.googlegroups.com>
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/c2665d943e0e2eaf
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/3e9c93e30a9b47ff
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/358652c14ac62c38
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/5f64d1e978d8f0c8
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/ce64830b477f86fc
http://groups.google.com/group/sci.math/browse_thread/thread/566ea0293e42214e
http://groups.google.com/group/sci.math/browse_thread/thread/6e69ceb02cdd9cf0
http://groups.google.com/group/sci.math/browse_thread/thread/6bf70665f6fb6554
http://groups.google.com/group/sci.math/browse_thread/thread/66412c0e5c9ecae7
http://groups.google.com/group/sci.math/browse_thread/thread/c251d4ad109fab7c
http://groups.google.com/group/alt.usage.english/browse_thread/thread/67a408c315d1238e
http://groups.google.com/group/alt.usage.english/browse_thread/thread/7352be5da6dad72f
http://groups.google.com/group/alt.usage.english/browse_thread/thread/53e7cc9b2b3d75a1
http://groups.google.com/group/alt.usage.english/browse_thread/thread/c7f62fd51f831f7c
http://groups.google.com/group/alt.usage.english/browse_thread/thread/94bb7925fe2c2189
------------------------------
Date: Mon, 1 Dec 2008 05:37:11 -0800 (PST)
From: dinacoqeaola280 <dinacoqeaola280@gmail.com>
Subject: lolita gallery, preteen thong models, preteen rape, preteen hentai, illegal drugs!
Message-Id: <a261ec0f-8cab-4644-9fa3-1e359dea2b8d@s20g2000yqh.googlegroups.com>
**
Some illegal links :)
**
http://adultsexkey.com/folder/1/0001.avi
http://adultsexkey.com/folder/1/0002.avi
http://adultsexkey.com/folder/1/0003.avi
http://adultsexkey.com/folder/1/0004.avi
http://adultsexkey.com/folder/1/0005.avi
http://adultsexkey.com/folder/1/0006.avi
http://adultsexkey.com/folder/1/0007.avi
http://adultsexkey.com/folder/1/0008.avi
http://adultsexkey.com/folder/1/0009.avi
http://adultsexkey.com/folder/1/0010.avi
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
------------------------------
Date: Mon, 01 Dec 2008 13:47:31 -0500
From: me <noemail@nothere.com>
Subject: Re: Package Installation - can it be done locally?
Message-Id: <cga8j41i5aj6804vb5uuvv5ic1f5eafvdm@4ax.com>
On Wed, 26 Nov 2008 11:11:37 -0800, Jim Gibson <jimsgibson@gmail.com>
wrote:
>No, not on your specific error. But I do know that the cpan shell is
>not the first choice for installing modules under Active State Perl.
>For that, you should use the GUI that Active State provides or the
>'ppm' package manager.
>
>--
>Jim Gibson
Thanks Jim. It seems there's an error in the cpan install in the
version of Active State I am using. An upgrade got me much further but
still failed. I moved to using PPM and after tweaking the instructions
in the kit I was able to get it installed (I think... I will have to
test with a program to see if it works).
Thanks for your help,
------------------------------
Date: Mon, 1 Dec 2008 16:23:37 +0000 (UTC)
From: INVALID_SEE_SIG@example.com.invalid (J.D. Baldwin)
Subject: Re: Perl module for managing user groups (UNIX)
Message-Id: <gh1329$p4p$3@reader1.panix.com>
In the previous article, Tim Greer <tim@burlyhost.com> wrote:
> What OS are you using, specifically? There are likely commands that
> will do all of the error checking, file locking, etc. for you (i.e.,
> usermod, groupmod, etc.)
While platform-independence is a nice-to-have objective for the longer
term, all the hosts in the system in question are Solaris 8/9/10 at
the moment.
What I do now involves usermod -- but you can't just tell usermod "add
this guy to this group." You have to say "Assign this guy to
secondary membership of all these groups." As a result, I have to
collect all the existing groups, figure out which ones are
secondaries, error-check the request, then execute the comment. That
error-checking is the most involved step by far; there are a lot of
ways to malform a request. Then we have the case of asking to delete
a user's primary group, which of course involves picking one of the
secondary groups to assign in its place ... and so on and so forth.
It's not that I can't do this, it's just that I'd rather not write 500
lines of code if someone has module-ized the tasks.
--
_+_ From the catapult of |If anyone objects to any statement I make, I am
_|70|___:)=}- J.D. Baldwin |quite prepared not only to retract it, but also
\ / baldwin@panix.com|to deny under oath that I ever made it.-T. Lehrer
***~~~~----------------------------------------------------------------------
------------------------------
Date: Mon, 1 Dec 2008 18:00:30 +0100
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Perl module for managing user groups (UNIX)
Message-Id: <slrngj861e.567.hjp-usenet2@hrunkner.hjp.at>
On 2008-12-01 16:23, J.D. Baldwin <INVALID_SEE_SIG@example.com.invalid> wrote:
> What I do now involves usermod -- but you can't just tell usermod "add
> this guy to this group." You have to say "Assign this guy to
> secondary membership of all these groups." As a result, I have to
> collect all the existing groups, figure out which ones are
> secondaries, error-check the request, then execute the comment. That
> error-checking is the most involved step by far; there are a lot of
> ways to malform a request. Then we have the case of asking to delete
> a user's primary group, which of course involves picking one of the
> secondary groups to assign in its place ... and so on and so forth.
>
> It's not that I can't do this, it's just that I'd rather not write 500
> lines of code if someone has module-ized the tasks.
Your estimate is remarkably correct:
% wc -l sync_*
[...]
502 sync_hpux_user
[...]
My sync_hpux_user script has almost exactly 500 lines ;-). It does the
stuff you describe. Unfortunately it is not well modularized, and the
sync_* scripts in general are rather crufty. I've meant to rewrite the
whole system for years, but there is never time.
hp
------------------------------
Date: Mon, 1 Dec 2008 05:50:56 -0800 (PST)
From: jihyrunuhehemel27036@gmail.com
Subject: Re: preteens in lingerie, underage girl, naturist preteens, preteen boy, nn pre teen galleries!
Message-Id: <38bd17c3-dd2a-49ed-b2f6-76f688aeed0a@v42g2000yqv.googlegroups.com>
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/c2665d943e0e2eaf
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/3e9c93e30a9b47ff
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/358652c14ac62c38
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/5f64d1e978d8f0c8
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/ce64830b477f86fc
http://groups.google.com/group/sci.math/browse_thread/thread/566ea0293e42214e
http://groups.google.com/group/sci.math/browse_thread/thread/6e69ceb02cdd9cf0
http://groups.google.com/group/sci.math/browse_thread/thread/6bf70665f6fb6554
http://groups.google.com/group/sci.math/browse_thread/thread/66412c0e5c9ecae7
http://groups.google.com/group/sci.math/browse_thread/thread/c251d4ad109fab7c
http://groups.google.com/group/alt.usage.english/browse_thread/thread/67a408c315d1238e
http://groups.google.com/group/alt.usage.english/browse_thread/thread/7352be5da6dad72f
http://groups.google.com/group/alt.usage.english/browse_thread/thread/53e7cc9b2b3d75a1
http://groups.google.com/group/alt.usage.english/browse_thread/thread/c7f62fd51f831f7c
http://groups.google.com/group/alt.usage.english/browse_thread/thread/94bb7925fe2c2189
------------------------------
Date: Mon, 1 Dec 2008 05:36:46 -0800 (PST)
From: dinacoqeaola280 <dinacoqeaola280@gmail.com>
Subject: preteens in lingerie, underage girl, naturist preteens, preteen boy, nn pre teen galleries!
Message-Id: <6b36c36d-5e00-4dc8-bd26-8fd8c804ee20@w3g2000yqc.googlegroups.com>
**
Some illegal links :)
**
http://adultsexkey.com/folder/1/0001.avi
http://adultsexkey.com/folder/1/0002.avi
http://adultsexkey.com/folder/1/0003.avi
http://adultsexkey.com/folder/1/0004.avi
http://adultsexkey.com/folder/1/0005.avi
http://adultsexkey.com/folder/1/0006.avi
http://adultsexkey.com/folder/1/0007.avi
http://adultsexkey.com/folder/1/0008.avi
http://adultsexkey.com/folder/1/0009.avi
http://adultsexkey.com/folder/1/0010.avi
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
**
------------------------------
Date: Mon, 1 Dec 2008 00:37:54 -0800 (PST)
From: sri <sriseetha1986@gmail.com>
Subject: Re: Unofficial Phone, ,the most cheap mobile phones from china ,30 kinds today
Message-Id: <3e6c95ac-28dd-46cf-93e8-b2a93ad042a5@i24g2000prf.googlegroups.com>
On Nov 30, 3:20 pm, "ying...@1dis.cn" <ying...@1dis.cn> wrote:
> Unofficial Phone, ,the most cheap mobile phones from china ,30 kinds
> today
>
> http://www.unofficialphone.cn/2008/11/android-phone-cottage-sciphone-...http://www.unofficialphone.cn/2008/11/unofficial-phone.htmlhttp://www.unofficialphone.cn/2008/11/amanilan.htmlhttp://www.unofficialphone.cn/2008/11/6191-pairs-of-mastercard-networ...http://www.unofficialphone.cn/2008/11/absolute-all-round-champion-san...http://www.unofficialphone.cn/2008/11/taiwan-friends-of-walled-g-plus...http://www.unofficialphone.cn/2008/11/hong-tianlei-zhensi-zh989-bone-...http://www.unofficialphone.cn/2008/11/1g-ram-gps-telsda-811-smartphon...
> for morehttp://www.unofficialphone.cn
Hi...
This is not the forum for doing the mobile phone advertising, so
please don't do this...
------------------------------
Date: Mon, 01 Dec 2008 10:50:36 -0600
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: updating Perl on an old BSD machine
Message-Id: <493415dd$0$87069$815e3792@news.qwest.net>
cartercc wrote:
> On Nov 30, 3:23 am, cartercc <carte...@gmail.com> wrote:
>> I'm updating an old FreeBSD machine (Pentium Pro) that I formerly used
>> as a web server and am pressing into service again. I've upgraded to
>> Apache 2.2.2, am upgrading PostgreSQL, and I would like to upgrade
>> Perl.
>
> Okay, I'm getting an education.
>
> I found what I needed at ftp.cpan.org/pub/CPAN/src. I got Perl-5.8.8,
> and ran everything to make test. Out of the thousands(?) of tests, I
> got one error: sprintf failed test 147. I ran t/harness with the same
> results.
You'd probably be better off updating and using FreeBSD ports. Using
portupgrade can save a lot of time.
>
> Is this faulure fatal? Can I run make install without a problem? How
> can I see exactly why this test failed?
>
> Also, I still have some hesitancy about the fact that the old Perl
> lives at /usr/bin/perl. I don't know how to handle this.
Well, how do you want to handle it? You have to have 'root' to
install things, so you have the ability to do whatever you want,
on the machine.
You can leave it or after you install the new version you can
run 'use.perl port', which will symlink a bunch of things,
then /usr/local/bin/perl will be the same as /usr/bin/perl.
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 2021
***************************************
