Subroutine auseinander pflücken: Was macht diese Sub? (Allgemeines zu Perl)

[thread]6308[/thread]

Subroutine auseinander pflücken: Was macht diese Sub?

pktm

2004-06-03 21:33

User since
2003-08-07
2921 Artikel
BenutzerIn

Code: (dl )

sub _get_filter {
	my $self = shift;
	my @ret;
	if ($self->{autoDeleteHeader}) {
		push @ret, sub {
					my $tmpl = shift;
					my $header;
					###if ($$tmpl =~s{^.+?<body([^>'"]*|".*?"|'.*?')+>}{}msi) {
					if ($$tmpl =~s{(^.+?<body(?:[^>'"]*|".*?"|'.*?')+>)}{}msi) {
						###$self->{header} = $&;
						$self->{header} = $1;
						&tokenizer_header($self);
					} else {
						# header doesn't exist
						undef $self->{header};
						undef $self->{tokens};
					}
					$$tmpl =~ s{</body>.+}{}msi;
				};
	}
	return \@ret;
}

gefunden in einem bei mir nicht wirklich funktionierenden Modul namens HTML::Extension::HEAD_BODY

Und jetzt würde ich gerne wissen was das macht.
Ich kann mir da irgendwie keinen Reim drauf bilden.
Wo kommen diese Variablen her?
Wie funktioniert dieses push @ret, sub {} ?
mfg pktm

http://www.intergastro-service.de (mein erstes CMS :) )

[E|B]

2004-06-03 22:26

User since
2003-08-08
2561 Artikel
HausmeisterIn

Quote
Wie funktioniert dieses push @ret, sub {} ?

Als Argument wird eine anonyme Subroutine übergeben. Die Sub baut die Parameter zusammen, die sie dann mit return zurückliefert und die dann in dem Array "@ret" gespeichert werden. Natürlich könntest du dafür auch eine extra Funktion schreiben, ist aber nicht so perlisch wie die Lösung hier.

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

pktm

2004-06-03 22:39

User since
2003-08-07
2921 Artikel
BenutzerIn

Aber dieser sub wird doch der Wert für $tmpl = shift; übergeben.
Wie übergibt man denn da Werte?

http://www.intergastro-service.de (mein erstes CMS :) )

2004-06-03 23:05

User since
2003-08-04
12209 Artikel
Admin1

[quote=pktm,03.06.2004, 20:39]Aber dieser sub wird doch der Wert für $tmpl = shift; übergeben.
Wie übergibt man denn da Werte?[/quote]
hmm, du scheinst mit anonymen subroutinen nicht vertraut zu sein.

Code: (dl )

tina@lux:~> perl -wle'
my $sub = sub {
  print "arguments: (@_)";
};
$sub->(1, 2, 3);
'
arguments: (1 2 3)

im moment der sub-erstellung wird der code noch nicht ausgeführt.
ist eigentlich alles genauso wie bei nemed-subs, also
sub name { tu was... } my $name = sub { tu was... };

perldoc perlsub

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Crian

2004-06-04 18:50

User since
2003-08-04
5878 Artikel
ModeratorIn

Aufgerufen werden die Funktionen wohl erst von dem Programm, das \@ret entgegennimmt. Die entsprechende Codestelle sieht man in dem geposteten Ausschnitt nicht, dort werden die anonymen subs nur definiert.\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View all threads created 2004-06-03 21:33.