|< 1 2 >| | 13 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
if ($content =~m|<meta>(.*)</meta>|)
{
$meta = $1;
if($meta= ~m|<titel>(.*)</titel>|)
{
$titel = $;
}
}
if($titel = ~m|<url>(.*)</url>|)
{
$url = $1;
}
perl -pe "$_ = ~$_" infile > outfile
1
2
3
4
$string = "<title>abcde</title><title>defg</title>";
if ($string =~ m|<title>(.*)</title>|) {
print $1;
}
1
2
3
4
$string = "<title>abcde</title><title>defg</title>";
if ($string =~ m|<title>(.*?)</title>|) {
print $1;
}
if($meta= ~m|<titel>(.*)</titel>|
if ($meta = ~( $_ =~ m|<titel>(.*)</titel>| )) {
|< 1 2 >| | 13 Einträge, 2 Seiten |