Co oznacza 1 USD w Perlu?

Question

Co oznacza 1 dolar w Perlu? Co to jest $ 2? Ile jest zmiennych liczbowych $?

Answer 1

W $number zmienne zawierają części łańcucha, który pasował do capture groups(...) w strukturze do ostatniego meczu regex jeśli mecz był udany.

Na przykład, weźmy następujący ciąg:

$text = "the quick brown fox jumps over the lazy dog."; 

Po oświadczeniu

$text =~ m/ (b.+?) /; 

$1 równa tekst "brown".

Answer 2

zmienne numeryczne są wyniki z ostatniego udany meczu lub zastępczego operatora został zastosowany:

my $string = 'abcdefghi'; 

if($string =~ /(abc)def(ghi)/) { 
    print "I found $1 and $2\n"; 
    } 

zawsze sprawdzić, czy pasuje lub podstawienie powiodła przed użyciem 1 $ i tak dalej. W przeciwnym razie możesz odebrać resztki z innej operacji.

Wyrażenia regularne Perla są dokumentowane w perlre.

Answer 3

Są to tak zwane "Zmienne meczowe". Jak wcześniej wspomniano, zawierają tekst z ostatniego dopasowania do wyrażenia regularnego.

Więcej informacji tutaj: http://cslibrary.stanford.edu/108/EssentialPerl.html

(CTRL-F dla „Zmienne pasują do siebie”, aby znaleźć odpowiedni rozdział)

Answer 4

zmienne $ 1 .. $ 9 są również czytać tylko zmienne, więc nie można niejawnie przypisać stosunek do nich:

$1 = 'foo'; print $1;

to zwróci błąd: Modyfikacja wartości tylko do odczytu próby na linii skryptu 1.

Nie można również używać liczb na początku nazw zmiennych:

$1foo = 'foo'; print $1foo;

Powyższe spowoduje również błąd.

Answer 5

Jak zauważyli inni, $ x to zmienne przechwytywania dla wyrażeń regularnych, pozwalające na odniesienie do sekcji dopasowanego wzorca.

Perl obsługuje również przechwycone nazwy, które w niektórych przypadkach mogą być łatwiejsze do zapamiętania przez ludzi.

dane wejściowe: 111 222

/(\d+)\s+(\d+)/ 

$ 1 to 111

$ 2 wynosi 222

Można by również powiedzieć:

/(?<myvara>\d+)\s+(?<myvarb>\d+)/ 

$ + {myvara} wynosi 111

$ + {myvarb} jest 222

Answer 6

$ 1, $ 2 itd będzie zawierać wartość przechwyconych od ostatniego udany meczu - ważne jest, aby sprawdzić, czy mecz udało przed uzyskaniem dostępu do nich, tj

if ($var =~ m/()/) { # use $1 etc... } 

przykładem problemu - $ 1 zawiera „Szybki” w obu sprawozdaniach drukowania poniżej:

#!/usr/bin/perl 

'Quick brown fox' =~ m{ (quick) }ix; 
print "Found: $1\n"; 

'Lazy dog' =~ m{ (quick) }ix; 
print "Found: $1\n"; 

Answer 7

Podejrzewam, że nie może być aż 2**32 -1 numerowane zmienne mecz, na 32bit skompilowany Perl binarny.

Answer 8

W ogólne pytania dotyczące „magicznych” zmiennych w Perlu można odpowiedzieć patrząc w Perl dokumentacji zmiennych predefiniowanych a la:

perldoc perlvar 

Jednak podczas wyszukiwania tę dokumentację do 1 $ itd. Musisz znaleźć odniesienia w wielu miejscach, z wyjątkiem sekcji dotyczących tych "cyfrowych" zmiennych. Trzeba szukać

$<digits> 

bym dodał do tego Brian's answer albo komentowania lub edycji, ale nie mam wystarczająco dużo rep. Jeśli ktoś to doda, usunę tę odpowiedź.

Answer 9

Ponieważ poprosiłeś grupy przechwytywania, warto wiedzieć o $ + zbyt .. Dość przydatna ..

use Data::Dumper; 
$text="hiabc ihabc ads byexx eybxx"; 
while($text=~/(hi|ih)abc|(bye|eyb)xx/igs) 
{ 
    print Dumper $+; 
} 

OUTPUT:
$VAR1 = 'hi';
$VAR1 = 'ih';
$VAR1 = 'bye';
$VAR1 = 'eyb';