Regex-Frage: Optionaler Anker (Allgemeines zu Perl)

[thread]18249[/thread]

Regex-Frage: Optionaler Anker

Tags: perl5 regex Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

Teilbaum:
Vergleich Regexmatch <-> Smartmatch auf Array (4 Artikel) 2013-04-03 12:50

+7 replies

Kuerbis

2013-04-03 09:45

User since
2011-03-20
947 Artikel
BenutzerIn
[default_avatar]

Hallo!

Würde man in so einem Fall zum Herausfiltern von Zahlen /[0-9]/ verwenden, weil das ausreicht oder würde man eher /^[0-9]\z/ nehmen, weil man so besser erkennen kann, was gesucht wird (Ich nehme an, dass ReadKey immer ein Byte (oder 'undef') zurück gibt).

Code (perl): (dl )

#!/usr/bin/env perl
use warnings;
use strict;
use Term::ReadKey;

Term::ReadKey::ReadMode 4;

print ": ";
my $c = ReadKey;

if ( $c =~ /[0-9]/ ) {
    print "$c\n";
}

print ": ";
$c = ReadKey;

if ( $c =~ /^[0-9]\z/ ) {
    print "$c\n";
}

Term::ReadKey::ReadMode 0;

+6 replies

Muffi

2013-04-03 10:02

User since
2012-07-18
1465 Artikel
BenutzerIn
[default_avatar]

Ich würd entweder

Code (perl): (dl )

$a =~ /^\d$/

oder ab 5.10

Code (perl): (dl )

$a ~~ [0..9]

schreiben.

[EDIT] Ich glaub das ist mein Favorit

Code (perl): (dl )

$a ~~ ['0'..'9']

Last edited: 2013-04-03 11:55:13 +0200 (CEST)

1 + 1 = 10

GwenDragon

2013-04-03 10:53

Subtree with 5 replies: Vergleich Regexmatch <-> Smartmatch auf Array

User since
2005-01-17
14774 Artikel
Admin1

Ein Regex oder ein Smartmatch auf anonymes Array, mit den Werten einer Liste.
Welchen Vorteil soll denn das letztere haben?
Nur die andere Schreibweise?

Ich bin mir nicht sicher, aber der Smartmatch mit dem Array alloziert unnötig Speicher. Kann auch sein, dass es nicht stimmt.
Vielleicht weiß jemand mehr dazu.

//EDIT2:

Code: (dl )

C:\>perl -MDevel::Size -E"print Devel::Size::total_size([0..9])"
240
C:\>perl -MDevel::Size -E"print Devel::Size::total_size(qr{^\d$})"
88

Das Array verbraucht also mehr Speicher.

//EDIT:
Selbst rausgefunden.

Code: (dl )

C:\>perl -MO=Concise -E"print '1' ~~ [0..9]"
b  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 46 -e:1) v:%,{ ->3
a     <@> print vK ->b
3        <0> pushmark s ->4
9        <2> smartmatch sK/2 ->a
4           <$> const[PV "1"] s ->5
8           <@> anonlist sK*/1 ->9
5              <0> pushmark s ->6
7              <1> rv2av lKP/1 ->8
6                 <$> const[AV ] s ->7

Code: (dl )

C:\>perl -MO=Concise -E"print '1' =~ /^\d$/"
7  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 46 -e:1) v:%,{ ->3
6     <@> print vK ->7
3        <0> pushmark s ->4
5        </> match(/"^\\d$"/) lKS/RTIME ->6
4           <$> const[PV "1"] s ->5

Und der Benchmak zeigt den Vorteil des Regex:

Code: (dl )

C:\>perl  -MBenchmark -E"Benchmark::cmpthese(1000000, { 'Regex'=>sub {print '1' =~ /^\d$/}, 'Liste'=>sub{p
rint '1' ~~ [0..9]} })"
111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
...
111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
11111111111111111111111111111111111111111111111111111111111111111111111111111111           Rate Liste Regex
Liste  436110/s    --  -71%
Regex 1490313/s  242%    --

Last edited: 2013-04-03 11:28:00 +0200 (CEST)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2013-04-03 09:45.