Thread (Message) | Date | Author |
Score |
Board |
Subroutinen überschreiben
(#154303) |
2011-11-18 16:53 |
Kean
|
 |
Allgemeines zu Perl |
Also wäre dass dann in meinem Fall
[code=perl]
package Modifikationen;
no warnings "redefine";
sub main::funktion1 { ... }
[/code]
Das ganze in die Datei Modifikationen.pm im gleichen… |
|
rekursive subroutine
(#173441) |
2014-02-06 22:22 |
hlubenow
|
 |
Allgemeines zu Perl |
Ich schätze mal, Du willst voll auflösen. Das sähe bei mir so aus:
[code=perl]#!/usr/bin/perl
use warnings;
use strict;
sub get_arr {
my $key = shift;
my $href = shift;
my %h =… |
|
rekursive subroutine
(#173441) |
2014-02-06 22:22 |
hlubenow
|
 |
Allgemeines zu Perl |
Ich schätze mal, Du willst voll auflösen. Das sähe bei mir so aus:
[code=perl]#!/usr/bin/perl
use warnings;
use strict;
sub get_arr {
my $key = shift;
my $href = shift;
my %h =… |
|
rekursive subroutine
(#173432) |
2014-02-06 18:10 |
guest wer
|
 |
Allgemeines zu Perl |
…
use strict;
use warnings;
use Data::Dumper;
my %data;
my %hits;
my %used;
while(<DATA>) {
next unless /^\s*\[([^\[\]]+)\]:\s*(.+?)\s*$/s;
my $name=$1;
my… |
|
rekursive subroutine
(#173421) |
2014-02-06 15:24 |
kimmy
|
 |
Allgemeines zu Perl |
Das ist mein Code.
[code=perl]
#!/usr/bin/perl
use strict;
use warnings;
my (%child, @ancestor);
while(<DATA>){
my ($node, $left, $right);
$node = $1, $left = $2, $right = $3… |
|
rekursive subroutine
(#173421) |
2014-02-06 15:24 |
kimmy
|
 |
Allgemeines zu Perl |
Das ist mein Code.
[code=perl]
#!/usr/bin/perl
use strict;
use warnings;
my (%child, @ancestor);
while(<DATA>){
my ($node, $left, $right);
$node = $1, $left = $2, $right = $3… |
|
Subroutinen bündeln
(#144737) |
2011-01-17 10:16 |
pq
|
 |
Allgemeines zu Perl |
die 1 gehört in die letzte zeile. die rückgabewerte kannst du so beibehalten.
probiers doch einfach mal aus.
ich würde das übrigens eher mit einem modul machen. |
|
rekursive subroutine
(#173424) |
2014-02-06 16:21 |
Muffi
|
 |
Allgemeines zu Perl |
… glaub man kann das verständlicher schreiben
[code=perl]
use strict;
use warnings;
use feature 'say';
my %nodes = ();
for my $line (<DATA>) {
my $node = Node->new($line, \%nodes); #… |
|
Subroutinen bündeln
(#144740) |
2011-01-17 11:14 |
pq
|
 |
Allgemeines zu Perl |
nein, hat keinen technischen grund. |
|
Subroutinen bündeln
(#144733) |
2011-01-17 08:27 |
bianca
|
 |
Allgemeines zu Perl |
Ja, das kann man.
Du könntest die Sub einfach 1:1 in eine externe Datei legen und diese Datei beim Start des Hauptprogramms mit require "pfad/datei.pl" einbinden. |
|
Subroutinen überschreiben
(#154309) |
2011-11-18 17:22 |
pq
|
 |
Allgemeines zu Perl |
ja, das muss danach erfolgen.
sonst hast du den umgekehrten effekt, dass das original deine modifikation überschreibt. |
|
rekursive subroutine
(#173420) |
2014-02-06 15:17 |
kimmy
|
 |
Allgemeines zu Perl |
Ich bekomme keine Fehlermeldung oder Warnung. Nur ein falsches Ergenis, das ich nicht haben wollte. Wie Z.B.:
[code]
[2]: c a b, a b
[4]: f d e, d e
[7]: [2] [4]
[8]: j i g h, g h, i g h, g h, i… |
|
rekursive subroutine
(#173417) |
2014-02-06 15:17 |
kimmy
|
 |
Allgemeines zu Perl |
Hallo Zusammen,
ich habe folgende Liste:
[code]
[1]: a, b
[2]: c, [1]
[3]: d, e
[4]: f, [3]
[5]: g, h
[6]: i, [5]
[7]: [2], [4]
[8]: j, [6]
[9]: [7], [8]
[/code]
Die Liste bedeutet… |
|
DB in einer Subroutine auslesen ein Array erstellen und an das Hauptprogramm übergeben.
(#118825) |
2009-02-13 10:10 |
BumBum
|
 |
Datenbanken und Verzeichnisdienste |
Dies funktioniert auch - nun möchte ich die Daten als Array aus der Subroutine an das Hauptprogramm übergeben.
Grund der Sache - ich arbeite mit SNMP:Multi hier werden die Daten für die HOSTS und… |
|
Debugging Hilfe bei Can't use string ("1") as a subroutine ref while "strict refs" in use
(#192993) |
2020-12-16 11:25 |
bianca
|
 |
Allgemeines zu Perl |
… Projekt habe ich den Fehler [tt]Can't use string ("1") as a subroutine ref while "strict refs" in use[/tt] und finde die Ursache nicht. |
|
Probleme mit den Übergabeparametern beim Pl-Aufruf
(#169772) |
2013-08-27 16:14 |
jan99
|
 |
Allgemeines zu Perl |
Subroutine ctime redefined at C:/Perl/lib/Log/File.pm line 155.
Option sandwich requires an argument
****** error in program start ******
-help this help
-title header in the… |
|
[Net::FTP] Deep recursion on subroutine "Net::FTP::rmdir" at C:/strawberry/perl/lib/Net/FTP.pm line 681.
(#181897) |
2015-08-24 19:15 |
bianca
|
 |
Fragen zu Perl-Modulen |
…
erhalte ich die Meldung [quote]Deep recursion on subroutine "Net::FTP::rmdir" at C:/strawberry/perl/lib/Net/FTP.pm line 681.[/quote]
Das Verzeichnis enthält keine Unterverzeichnisse und 123… |
|
HTML::Template + sub ärger: selectbox
(#7751) |
2006-05-23 01:08 |
decoder
|
 |
Perl/CGI |
… May 22 22:52:01 2006] 1.cgi: Subroutine build_selectbox redefined at /var/www/perl/1.cgi line 13.[/code]
keine Ahnung leider, total ratlos. |
|
Bad name after...
(#179752) |
2015-02-20 06:44 |
bianca
|
 |
Allgemeines zu Perl |
…
}[/code] erhalte ich mit Strawberry 5.16.3 auf Win 7 nach wie vor: [quote]Gewonnen! Sub a
Subroutine testsub redefined at test_extern2.pl line 6.
Gewonnen! Sub a[/quote]
Was hab ich übersehen? |
|
windows attrib mit perl?
(#126817) |
2009-10-10 13:25 |
pq
|
 |
Allgemeines zu Perl |
… wurden hab ich durch ein erzwungenes
[code]Subroutine DIRECTORY redefined[/code] sichergestellt.[/quote]
bitte was? du sprichst in raetseln... |