Thread perl-script zur Mail-log Auswertung (12 answers)
Opened by skynetworks at 2007-08-01 21:53

renee
 2007-08-02 13:09
#97245 #97245
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
#Kein Kommentar+2007-08-02 10:42:52--
renee+2007-08-01 21:59:19--
Nein, \b ne \s. Unter \b fallen mehrere Sachen...


aber \b ist doch im grunde wie \s

auszug aus der doku:
\b Match a word boundary

und eine wortunterbrechung ist doch \s ( ,\t,\r,\n,\f)



\s ist eine kleine Schnittmenge mit \b...

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#!/usr/bin/perl

use strict;
use warnings;

my @tests = (
    'Tester',
    'Test ist das',
    '(Test)was',
    'Test.',
    'Test,',
    'Test
    ',
    'Test&',
    'Test(',
    'Test123',
    '8Test-er',
);

for my $test ( @tests ){
    my $val = $test =~ /Test\b/ ? 'yes' : 'no';
    print sprintf "%13s: %s\n", $test, $val;
}


Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
C:\>word_boundary.pl
       Tester: no
 Test ist das: yes
    (Test)was: yes
        Test.: yes
        Test,: yes
    Test
    : yes
        Test&: yes
        Test(: yes
      Test123: no
     8Test-er: yes
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread perl-script zur Mail-log Auswertung