| Thread (Message) | Date | Author |
Score |
Board |
|---|
| Subroutine & Arrays: Funktion zur Arrayerzeugung
(#58938) |
2005-10-17 15:57 |
Kristop8
|
 |
Allgemeines zu Perl |
| Hallo Leute,
ich versuche, leider bisher vergebns ein Programm zu basteln welches mir einen Bestimmten Ordner (c:\TEST) durchsucht und den Inhalt (Datein + Ordner) in ein Array speichert. |
|
| Subroutine & Arrays: Funktion zur Arrayerzeugung
(#58939) |
2005-10-17 16:27 |
esskar
|
|
Allgemeines zu Perl |
| [code]
use strict;
use warnings;
my $dir = "c:/test";
my @array;
GetDirs($dir, \@array);
sub GetDirs {
my ($directory, $arrayref) = @_;
$directory =~ s!\\!/!g;
$directory =~ s!/$… |
|
| Subroutine & Arrays: Funktion zur Arrayerzeugung
(#58940) |
2005-10-17 17:28 |
Kristop8
|
|
Allgemeines zu Perl |
| Hi, erstmal danke für deine Mühen,
kriege den Code aber nicht so richtig zum laufen...
well ich aber
[tt] $directory =~ s!\\!/!g;
$directory =~ s!/$!!;[/tt]
auskommentiere kann ich das… |
|
| Subroutine & Arrays: Funktion zur Arrayerzeugung
(#58942) |
2005-10-17 19:47 |
Kristop8
|
|
Allgemeines zu Perl |
| Hi,
habe in der zwischenzeit auch File::Find auch ausprobiert ich kann dann alles in ein array schmeißen aber mehrere arrays sind nicht drinnen... |
|
| Subroutine & Arrays: Funktion zur Arrayerzeugung
(#58943) |
2005-10-17 20:27 |
lichtkind
|
|
Allgemeines zu Perl |
| versuchs doch mit hashes und HoH und etwas mehr das rekursiv aufzuziehen dann müsste es doch gehen.
da würde fast deine getDir sub reichen sie müsste sich dann nur selbst aufrufen wenn sie ein… |
|
| Subroutine & Arrays: Funktion zur Arrayerzeugung
(#58944) |
2005-10-17 21:18 |
smallish
|
|
Allgemeines zu Perl |
| … kannst es auch mit einem Hash machen:
[code]use strict;
use warnings;
my $tree = {};
read_it('D:', $tree);
{
my $durchlauf;
sub read_it {
my ($dir, $tree) = @_;
my $name;
$name =… |
|
| Subroutine & Arrays: Funktion zur Arrayerzeugung
(#58946) |
2005-10-19 13:43 |
Kristop8
|
|
Allgemeines zu Perl |
| Hallo Leute,
danke für eueren input, vorallem der Code von smallish, scheit genau das zu machen was ich brauche... (so weit ich ihn verstanden habe)... |
|
| Subroutine & Arrays: Funktion zur Arrayerzeugung
(#58947) |
2005-10-19 15:49 |
pKai
|
|
Allgemeines zu Perl |
| [quote=Kristop8,19.Oct..2005, 11:43][code] $tree -> {$name} = { files => \@files };[/code]
so wie ich diese zeile verstehe, passiert da folgendes... |
|
| Subroutine & Arrays: Funktion zur Arrayerzeugung
(#58948) |
2005-10-20 13:21 |
Kristop8
|
|
Allgemeines zu Perl |
| Gar nicht so easy, dass mit dem hashes von hashes usw.
habe nun folgendes probiert, um die ausgabe der datein von c:\test\test_1 zu bekommen... |
|
| Subroutine & Arrays: Funktion zur Arrayerzeugung
(#58949) |
2005-10-20 13:56 |
pKai
|
|
Allgemeines zu Perl |
| [quote=Kristop8,20.Oct..2005, 11:21]my @top = keys( %{$tree{'C:/TEST'}{TEST_1}} );[/quote]
Da erwartet er ein Hash %tree, der aber nicht deklariert wurde. |
|
| Subroutinen: Wie macht man das?
(#73166) |
2003-11-29 00:11 |
renee
|
|
Allgemeines zu Perl |
| … kann für nichts garantieren, aber probier mal folgendes:[code]
use warnings;
use strict;
use diagnostics;
use Archive::Zip;
use Archive::Zip::MemberRead;
$String = "strict"; #Such String… |
|
| Subroutinen: Wie macht man das?
(#73167) |
2003-11-29 19:38 |
Rambo
|
|
Allgemeines zu Perl |
| … ansich war der Code nicht verkehrt :-) nur muss man
wissen wo man das FH->close setzt :-)
hier falls es jemanden intersiert der code
[code]
use strict;
use warnings;
use diagnostics;
use… |
|
| Subroutine als Parameter: Syntax Verständnisproblem
(#188580) |
2018-06-28 18:55 |
GwenDragon
|
|
Allgemeines zu Perl |
| Kann ich nur zustimmen.
Ich versteh auch nicht was in dem Programmbeispiel von Mojo das Fat Comma soll. |
|
| END Block innerhalb einer Subroutine
(#167479) |
2013-05-09 21:00 |
pq
|
|
Allgemeines zu Perl |
| ich kann mir gar nicht vorstellen, warum man sowas tun sollte.
fragst du, weil du es irgendwo gesehen hast? |
|
| END Block innerhalb einer Subroutine
(#167480) |
2013-05-10 00:10 |
lichtkind
|
|
Allgemeines zu Perl |
| ja riecht auch für mich als wenn programmierer nicht genau verstand daß reihenfolge der ausführung für END-Blöcke abhängig von ihrer position in der datei sind und nicht ob sie in einer routine… |
|
| END Block innerhalb einer Subroutine
(#167488) |
2013-05-10 10:48 |
Kuerbis
|
|
Allgemeines zu Perl |
| Danke an alle. |
|
| END Block innerhalb einer Subroutine
(#167490) |
2013-05-10 11:24 |
bloonix
|
|
Allgemeines zu Perl |
| … Kuerbis,
vielleicht wäre das was für dich:
[code]
#!/usr/bin/perl
use strict;
use warnings;
my $x = main->new();
sub new {
my $self = bless { }, shift… |
|
| END Block innerhalb einer Subroutine
(#167492) |
2013-05-10 17:01 |
Kuerbis
|
|
Allgemeines zu Perl |
| Das scheint zu funktionieren. Ist das so in Ordnung?
[code=perl]package My_Package;
use warnings;
use strict;
use Term::ReadKey;
use constant {
HIDE_CURSOR => "\e[?25l"… |
|
| END Block innerhalb einer Subroutine
(#167493) |
2013-05-11 08:33 |
Muffi
|
|
Allgemeines zu Perl |
| Man müsst jetzt den Code besser kennen, aber eine Variable, die nicht global in ein Package gehört, aber trotzdem an mehreren Stellen gebraucht wird könnt auf ein Objekt hindeuten. |
|
| END Block innerhalb einer Subroutine
(#167494) |
2013-05-11 08:39 |
Muffi
|
|
Allgemeines zu Perl |
| Ah, damit erübrigt sich ja mein Kommentar oben.
Ich finds ein bisserl zusammengemixt. Ich würd das was Objekt ist in ein eigenes Package tun |
Jemand zu Hause?
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
