[aikon]

PHP:

int preg_match ( string pattern, string subject [, array matches [, int flags]])

Behöver göra ett mkt tillfälligt inhopp i Perl. Hur gör jag en preg_match i Perl? Jag vill alltså söka efter "pattern" i "subject" och få returnerat en delsträng i "matches".

[kers]

if ($instr =~ /(pattern)/)
{
print $1;
}

$instr är strängen som du vill testa / matcha i
pattern är regeln som du vill matcha
$1 är det från $instr som matchar regeln inom paranteserna pattern

konkrekt exempel:

#!/usr/bin/perl
use strict;

my $instr = "hej din gamla get";

if ($instr =~ /(ga.*) /)
{
print $1;
}

[aikon]

Snyggt, nu fick jag till det!