Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]6993[/thread]

aktuelles Verzeichnis (Seite 4)

Leser: 2


<< |< 1 2 3 4 5 >| >> 44 Einträge, 5 Seiten
Crian
 2005-05-17 16:57
#54918 #54918
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
[quote=J-jayz-Z,15.05.2005, 00:55]Hi, ist es möglich, das Verzeichnis herauszufinden, in dem das script ausgeführt wird? Also nicht das, in dem es liegt, das ist ja ./ sondern in dem, indem der User das script laufen läßt.[/quote]
'.' ist nicht das Verzeichnis, in dem das Skript liegt.

Dieses Verzeichnis würdest Du über

Code: (dl )
1
2
use Find::Bin;
print $FindBin::Bin;


angezeigt bekommen. Das aktuelle Verzeichnis (also .) bekommst Du, wie schon von den Vorrednern festgestellt) per Cwd.\n\n

<!--EDIT|Crian|1116334658-->
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
J-jayz-Z
 2005-05-17 19:01
#54919 #54919
User since
2005-04-13
625 Artikel
BenutzerIn
[Homepage] [default_avatar]
Jo, das nutze ich ja auch...
Wenn ich mein script in /bin/ liegen habe und im Verzeichniss /home/rootcris/ das script ausführe bekomme ich mit Cwd die Liste von /home/rootcrs/ und mit "." die Liste von /bin/ ....
perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de
Dubu
 2005-05-18 00:20
#54920 #54920
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image
Koenntest du ein Minimalbeispiel bringen, dass dieses Fehlverhalten reproduziert? Ich bringe das nicht zu Stande, wie auch in meinem letzten Posting oben gezeigt.
J-jayz-Z
 2005-05-18 00:47
#54921 #54921
User since
2005-04-13
625 Artikel
BenutzerIn
[Homepage] [default_avatar]
Ist mit Cwd jetzt ja kein Problem mehr. Jetzt geht es so, wie ich es wollte!
perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de
Dubu
 2005-05-18 00:48
#54922 #54922
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image
Naja, ich haette nur gerne gewusst, wo der Fehler liegt.
J-jayz-Z
 2005-05-18 01:55
#54923 #54923
User since
2005-04-13
625 Artikel
BenutzerIn
[Homepage] [default_avatar]
okay, mein code sieht so aus:
Code: (dl )
1
2
3
opendir(DIR, ".");
my @dir = readdir(DIR);
closedir(DIR);

und in @dir ist jetzt mein /bin/ Verzeichniss....
perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de
renee
 2005-05-18 11:03
#54924 #54924
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
hast Du vielleicht irgendwo ein chdir() drin??
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
Dubu
 2005-05-18 14:03
#54925 #54925
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image
Das war so zwar nicht lauffaehig, aber gut:
Ich nehme deinen Code
- setze ein #!/usr/bin/perl davor
- ein print "$_\n" for @dir; dahinter
- schreibe ihn nach /bin/foobar
- mache /bin/foobar ausfuehrbar
- gehe in ein beliebiges Verzeichnis,
- rufe dort "foobar" auf
- und bekomme den Inhalt des aktuellen Verzeichnisses, und nicht den von bin.

Etwas anderes haette mich auch ueberrascht.

Also wieder die Frage: Mit welchem Code siehst du dieses Verhalten? Jedenfalls nicht mit den Zeilen, die du gerade gepostet hast, denn die geben so gar nix aus und sind kein vollstaendiges Programm.

Zum Nachvollziehen - entschuldige meine Hartnaeckigkeit - haette ich gerne
- den exakten Programmcode, mit dem das passiert und
- die Kommandozeile, mit der dieser Programmcode aufgerufen wird.
Geht das?
Crian
 2005-05-18 15:14
#54926 #54926
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
Ich glaub kaum, da wird er wohl einfach etwas falsch beobachtet haben =)
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
J-jayz-Z
 2005-05-18 18:19
#54927 #54927
User since
2005-04-13
625 Artikel
BenutzerIn
[Homepage] [default_avatar]
okay. Ich gebe mich geschlagen.
Das passiert bei mir nur, wenn ich in /home/rootcris/ bin und das script mit scripts/filesize.pl aufrufe...
Das allerdings dann auch nicht mehr, wenn ich Cwd benutze...
Ich hab es in der Bash aufgerufen. Hier der Code, wenn er noch interessiert:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
#!/usr/bin/perl
use strict;
use warnings;

use Cwd;

my $test=0;
my $name;
my $wert;
my $dir;

use Getopt::Std;
my %opts;

getopts('hd:f:m', \%opts);

if ($opts{h})
{
    print "Usage:\n";
    print "filesize.pl -h for help\n";
    print "filesize.pl -f [filename] to show the size of [filename]\n";
    print "filesize.pl -d [directory] to show the sizes of all files in [directory]\n";
    print "filesize.pl to show the sizes of all files in the current directory\n";
}
elsif ($opts{f})
{
    my $f = getcwd;
    opendir(DIR, "$f");
    my @dir = readdir(DIR);
    closedir(DIR);
    foreach (@dir)
    {
        if ($_ eq $opts{f})
        {
            $test=1;
        }
    }
    if ($test)
    {
        $_ = (-s "$opts{f}");
        $wert = &size($_);;
        $name = $opts{f};
        write;
    }
    else {
        print "Datei $opts{f} exisiert nicht!\n";
    }
}

$dir = getcwd unless(defined($opts{d}));
if (defined($opts{d}))
{
    if (-d "$opts{d}")
    {
        $dir = $opts{d};
    } else {
        print "$opts{d} existiert nicht oder ist kein Verzeichniss!\n";
        exit 0;
    }
}

unless (defined($opts{h}) || defined($opts{f}))
{
#    opendir(DIR, "$dir") or die $!;
    opendir(DIR, ".") or die $!;
    my @array = readdir(DIR);
    closedir(DIR);

my %hash;
my %for;
my @size;

format STDOUT_TOP =
Dateiname               Dateigroesse
====================================
.

    foreach(@array)
    {
        my $i = 0;
        if ($opts{d})
        {
            chdir $dir;
        }
        $hash{$_} = (-s $_);
        my $file = (-s $_);
        $for{$file} = $_;
        $i++;
        push @size, $file;
    }
    my @sort = sort { $a <=> $b } @size;

    foreach(@sort)
    {
    
        if (-f "$for{$_}")
        {
            my $data = $_;
            &size($_);
            $name = $for{$data};
            $wert = $_;
            
format STDOUT =
@<<<<<<<<<<<<<<<<< @>>>>>>>>>>>>>>>>
$name,          $wert
.
            write;
        }
    }    
}

sub size
{
if ($_ < 1024)
    {
            $_ .= " bytes";
        } elsif ( $_ > 1024 && $_ < 1048576)
        {
            $_ = sprintf("%.2f", $_ / 1024);
            $_ .= " kb";
        } elsif ( $_ > 1048576 && $_ < 1099511627776)
        {
            $_ = sprintf("%.2f", $_ / 1048576);
            $_ .= " mb";
        } else
        {
            $_ = sprintf("%.2f", $_ / 1099511627776);
            $_ .= " gb";
    }
return $_;
}

Sorry nochmal :)
perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de
<< |< 1 2 3 4 5 >| >> 44 Einträge, 5 Seiten



View all threads created 2005-05-15 02:55.