Thread (Message) | Date | Author |
Score |
Board |
subroutinen für Hashes und Arrays definieren
(#187577) |
2017-10-20 18:40 |
Wild.Card
|
 |
Allgemeines zu Perl |
Das ist schon etwas lang und viel Schreibarbeit, dafür dass man nur die Summe und Schnitt haben will ^^
[i][b]modedit[/b] Editiert von [user]642[/user]: Vollzitat entfernt[/i] |
|
aufrufen ein Perl subroutine mit xs datei
(#76605) |
2007-05-09 22:37 |
pq
|
 |
Allgemeines zu Perl |
hmm, keine ahnung, aber wenn, steht es in [perldoc=perlembed]perlembed[/perldoc] |
|
"Ungeschickte" sort-Subroutine spammt Speicher voll..
(#112841) |
2008-07-29 01:45 |
moritz
|
 |
Allgemeines zu Perl |
[quote="FoolAck+2008-07-28 23:39:00--"]
Hier der pöhse Einzeiler, der meinen RAM zumüllt:
[code]ls -l|perl -ane 'push @lines, [@F]; END { print sort {$lines[$a][4] <=> $lines[$b][4]} @lines… |
|
"Ungeschickte" sort-Subroutine spammt Speicher voll..
(#112842) |
2008-07-29 02:00 |
FoolAck
|
 |
Allgemeines zu Perl |
[quote]Autovivification[/quote]
Sowas hab ich mir fast schon gedacht, aber mir war nicht klar, dass eine Referenz überhaupt als Arrayindex verwendet werden kann. |
|
Filehandler als Parameter an Subroutine übergeben
(#4186) |
2005-01-21 02:04 |
beany
|
 |
Perl/CGI |
[code]open(FH, ">$file") or die $!;
&lock(FH,2);
print FH $text;
&lock(FH,8);
close(FH);
sub lock{
flock($_[0],$_[1]);
}[/code]
Kann mir bitte jemand sagen, wie ich es richtig mache?
Mit Asterik… |
|
Filehandler als Parameter an Subroutine übergeben
(#4187) |
2005-01-21 08:55 |
format_c
|
 |
Perl/CGI |
Ja, jedoch musst du das Filehandle wieder als solches herauslösen.
[code]
use strict;
sub test {
local *FH = shift;
while (<FH>) {print;}
}
open FILE,'<',$0 or die $!;
test(*FILE);
close FILE… |
|
Filehandler als Parameter an Subroutine übergeben
(#4188) |
2005-01-21 13:12 |
beany
|
 |
Perl/CGI |
Danke für die schnelle Antwort! |
|
Filehandler als Parameter an Subroutine übergeben
(#4189) |
2005-01-21 19:44 |
Strat
|
 |
Perl/CGI |
nebenbei: bei flock die werte, die das betriebssystem erwartet, direkt zu uebergeben kann unter einem anderen betriebssystem fehlschlagen, wenn dort andere werte vorkommen... |
|
Filehandler als Parameter an Subroutine übergeben
(#4190) |
2005-01-21 22:30 |
betterworld
|
 |
Perl/CGI |
Hallo,
so geht es auch:
[code]use strict;
use warnings;
sub lock(*$){
flock($_[0],$_[1]);
}
my $file="foo";
my $text="hallo";
open(FH, ">$file") or die $!;
lock (FH,2);
print FH $text;
lock FH… |
|
Klasse mit Parameter in der Subroutine
(#176280) |
2014-07-03 15:29 |
Raubtier
|
 |
Allgemeines zu Perl |
Ich kann dein Problem nicht nachvollziehen. Bitte poste lauffähigen Code.
[code=perl]package a;
sub new{return bless {db=>"db"}, shift}
sub foo{my $self=shift;say… |
|
Subroutine calls über mehrere packages / module
(#128261) |
2009-11-17 22:25 |
pq
|
 |
Allgemeines zu Perl |
deine benutzung von modulen ist etwas ungewöhnlich. du erstellst zwar instanzen der klassen, aber nennst diese instanzen "modul1" etc., wobei sie eher "object1" etc. heissen sollt. |
|
Subroutine calls über mehrere packages / module
(#128262) |
2009-11-17 22:51 |
guest Haspasus
|
 |
Allgemeines zu Perl |
Hallo!
Ersteinmal "Danke" für deine Antwort.
Ich arbeite noch nicht lange mit Perl, insofern ist es gut möglich, dass ich Module falsch einsetze. |
|
Subroutine calls über mehrere packages / module
(#128263) |
2009-11-17 22:59 |
pq
|
 |
Allgemeines zu Perl |
ich finde es wiederum merkwürdig, dass du $fehlerfunc und $fehlerHandler als "globale" variablen im modul setzt. wenn das beabsichtigt ist, ok, aber bisher nutzt du die objektorientierung nicht… |
|
Subroutine calls über mehrere packages / module
(#128264) |
2009-11-17 23:46 |
guest Haspasus
|
 |
Allgemeines zu Perl |
Ich habe nun in allen Dateien das "-w" aus dem Shebang entfernt und überall
[code=perl]use strict;
use warnings;[/code]
hinzugefügt. |
|
Subroutine calls über mehrere packages / module
(#128265) |
2009-11-17 23:58 |
Dubu
|
 |
Allgemeines zu Perl |
In Zeile 37 fehlt ein Pfeil nach dem zweiten [tt]self[/tt]. |
|
Subroutine calls über mehrere packages / module
(#128266) |
2009-11-18 00:29 |
topeg
|
 |
Allgemeines zu Perl |
Ich habe es mal überarbeitet.
So würde ich es machen, da man damit sehr flexible ist.
[b]main.pl[/b][code=perl]#!/usr/bin/perl
use strict:
use warnings;
use Test::Case::Modul1;
use… |
|
Subroutine calls über mehrere packages / module
(#128303) |
2009-11-18 20:11 |
MatthiasW
|
 |
Allgemeines zu Perl |
[quote="topeg@2009-11-17T23:29:34"]...[Zweite Variante, Modul1:]
[code=perl]sub new {
my $class = shift;
my $self = {};
my $self->{FehlerHandler} = $self; # <--… |
|
Teil eines Hashes an Subroutine übergeben
(#75503) |
2007-03-29 12:09 |
Taulmarill
|
 |
Allgemeines zu Perl |
$myhash{zwei} ist bereits eine Referenz. Das kannst du einfach direkt übergeben und dann in der sub wie eine Referenz benutzen. |
|
Teil eines Hashes an Subroutine übergeben
(#75504) |
2007-03-29 12:28 |
RalphFFM
|
 |
Allgemeines zu Perl |
Wie greife ich dann in der Sub darauf zu? Mir ist noch nicht klar wie Du "in der Sub wie eine Referenz benutzen" meinst.
[code]
#!/usr/bin/perl
use warnings; use strict;
my %hash… |
|
Teil eines Hashes an Subroutine übergeben
(#75505) |
2007-03-29 12:36 |
Taulmarill
|
 |
Allgemeines zu Perl |
Es gibt zwei Möglichkeiten. Entweder als Referenz, wobei du dabei im Hinterkopf behalten musst, dass Änderungen dann auch in der ursprünglichen Variable zum tragen kommen. |