ANSI C
PERL
- » Variable handling
- » Miscellaneous
- » POSIX
- » Date/Time
- » Math
- » Strings
- » PCRE
- » Arrays
- » Classes
- » Program execution
- » Directories
- » Filesystem
- » GD
- » Network
- » menu_code_perlcode_socket
- » DBI
PHP
JavaScript

CONTENT

CHANGES

Szukaj

#top Directories¶

[<<]|[<]|[^]|[v]|[>]|[>>]|[Zwiń]|[#top]|[X]

code / perl / sysdir

#top Predefined Constants¶

No Predefined Constants here.

#top Datatypes / MACROS¶

No Datatypes here.

#top Directories Functions¶

#top chdir¶

Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji chdir() jest następująca:

chdir

Powiązane:
chdir(), chroot(), cwd(),

Opis:

description

Example:
zawartość pliku chdir.pl

SELECT ALL

#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults

use Cwd qw(cwd); # for cwd(),



my $self=$0; $self=~s,^.*/,,g;
my ($dirname, $result, $pwddir);



if ($#ARGV+1<1) {
	print("Usage: $0 </path/to/directory>\n");
	print("Examples:\n");
	$dirname=$0;
	$dirname=~s,/[^/]*$,,g;
	print("       $0 $dirname\n");
	exit(1);
}

print""$self: \$pwddir=Cwd::cwd():\n");
$pwddir=Cwd::cwd();
print""$self: \$pwddir=Cwd::cwd(): \$pwddir=|$pwddir|\n");

$dirname=$ARGV[0];
print""$self: \$result=chdir($dirname):\n");
$result=chdir($dirname);
if ($result>0) { print("$self: \$result=chdir($dirname): \$result=|$result| if (\$result>0): Successful chdir().\n"); }
else           { print("$self: \$result=chdir($dirname): \$result=|$result| if (\$result>0): else: Unable to chdir(), Reason: $!\n"); }

print""$self: \$pwddir=Cwd::cwd():\n");
$pwddir=Cwd::cwd();
print""$self: \$pwddir=Cwd::cwd(): \$pwddir=|$pwddir|\n");

Aby zobaczyć jak działa program należy go uruchomić bez argumentów:

/home/local/code/perlcode/sysdir/chdir.pl

program wyświetli informacje o sposobie uruchamiania programu:

Usage: /home/local/code/perlcode/sysdir/chdir.pl </path/to/directory>
Examples:
       /home/local/code/perlcode/sysdir/chdir.pl /home/local/code/perlcode/sysdir

jako argument wywołania programu można podać analogiczne jak poniżej argumenty:

/home/local/code/perlcode/sysdir/chdir.pl /home/local/code/perlcode/sysdir
/home/local/code/perlcode/sysdir/chdir.pl /root
/home/local/code/perlcode/sysdir/chdir.pl /etc/fstab

rezultat będzie zależny od podanego argumentu wywołania programu:

chdir.pl: $pwddir=Cwd::cwd():
chdir.pl: $pwddir=Cwd::cwd(): $pwddir=|/home/user|
chdir.pl: $result=chdir(/home/local/code/perlcode/sysdir):
chdir.pl: $result=chdir(/home/local/code/perlcode/sysdir): $result=|1| if ($result>0): Successful chdir().
chdir.pl: $pwddir=Cwd::cwd():
chdir.pl: $pwddir=Cwd::cwd(): $pwddir=|/home/local/code/perlcode/sysdir|

chdir.pl: $pwddir=Cwd::cwd():
chdir.pl: $pwddir=Cwd::cwd(): $pwddir=|/home/user|
chdir.pl: $result=chdir(/root):
chdir.pl: $result=chdir(/root): $result=|0| if ($result>0): else: Unable to chdir(), Reason: Permission denied
chdir.pl: $pwddir=Cwd::cwd():
chdir.pl: $pwddir=Cwd::cwd(): $pwddir=|/home/user|

chdir.pl: $pwddir=Cwd::cwd():
chdir.pl: $pwddir=Cwd::cwd(): $pwddir=|/home/user|
chdir.pl: $result=chdir(/etc/fstab):
chdir.pl: $result=chdir(/etc/fstab): $result=|0| if ($result>0): else: Unable to chdir(), Reason: Not a directory
chdir.pl: $pwddir=Cwd::cwd():
chdir.pl: $pwddir=Cwd::cwd(): $pwddir=|/home/user|

#top chroot¶

Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji chroot() jest następująca:

chroot

Powiązane:
chdir(), chroot(), cwd(),

Opis:

description

Example:
zawartość pliku chroot.pl

SELECT ALL

#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults

use Cwd qw(cwd); # for cwd(),



my $self=$0; $self=~s,^.*/,,g;
my ($dirname, $result);



if ($#ARGV+1<1) {
	print("Usage: $0 </path/to/directory>\n");
	print("Examples:\n");
	$dirname=$0;
	$dirname=~s,/[^/]*$,,g;
	print("       $0 $dirname\n");
	exit(1);
}

$dirname=$ARGV[0];
print""$self: \$result=chroot($dirname):\n");
$result=chroot($dirname);
if ($result>0) { print("$self: \$result=chroot($dirname): \$result=|$result| if (\$result>0): Successful chroot().\n"); }
else           { print("$self: \$result=chroot($dirname): \$result=|$result| if (\$result>0): else: Unable to chroot(), Reason: $!\n"); }

Aby zobaczyć jak działa program należy go uruchomić bez argumentów:

/home/local/code/perlcode/sysdir/chroot.pl

program wyświetli informacje o sposobie uruchamiania programu:

Usage: /home/local/code/perlcode/sysdir/chroot.pl </path/to/directory>
Examples:
       /home/local/code/perlcode/sysdir/chroot.pl /home/local/code/perlcode/sysdir

jako argument wywołania programu można podać analogiczne jak poniżej argumenty:

/home/local/code/perlcode/sysdir/chroot.pl /home/local/code/perlcode/sysdir

rezultat będzie zależny od podanego argumentu wywołania programu:

chroot.pl: $result=chroot(/home/local/code/perlcode/sysdir):
chroot.pl: $result=chroot(/home/local/code/perlcode/sysdir): $result=|0| if ($result>0): else: Unable to chroot(), Reason: Operation not permitted

jak widać w powyższym przykładzie rezultat wywołania programu jest negatywny, wywołania chroot() wymaga uprawnień, po uruchomieniu programu jako użytkownik root uzyskany zostanie następujący rezultat:

chroot.pl: $result=chroot(/home/local/code/perlcode/sysdir):
chroot.pl: $result=chroot(/home/local/code/perlcode/sysdir): $result=|1| if ($result>0): Successful chroot().

#top closedir¶

Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji closedir() jest następująca:

closedir

Powiązane:
closedir(), opendir(), readdir(), rewinddir(), seekdir(), telldir(),

Opis:

description

#top cwd¶

Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji cwd() jest następująca:

cwd

Powiązane:
chdir(), chroot(), cwd(),

Opis:

description

#top DIRHANDLE¶

Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja operatora DIRHANDLE jest następująca:

<DIRHANDLE>

Powiązane:
closedir(), opendir(), readdir(), rewinddir(),

Opis:

description

Example:
zawartość pliku DIRHANDLE.pl

SELECT ALL

#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults



my $self=$0; $self=~s,^.*/,,g;
my ($dirpopen, $prefix, $suffix);
my (@FILES, $key);



if ($#ARGV+1<1) {
	print("Usage: $0 </path/to/file> [prefix] [suffix]\n");
	print("Examples:\n");
	print("       $0 /home/local/code/perlcode/sysdir\n");
	print("       $0 /home/local/code/perlcode/sysdir \"[cos]\"\n");
	print("       $0 /home/local/code/perlcode/sysdir \"\" .pl\n");
	exit(1);
}

$dirpopen=$ARGV[0];
$prefix=$ARGV[1];
$suffix=$ARGV[2];

if    (defined($prefix) && defined($suffix)) { print("$self: \@FILES=<$dirpopen/$prefix*$suffix>:\n"); }
elsif (defined($prefix))                     { print("$self: \@FILES=<$dirpopen/$prefix*>:\n"); }
elsif (defined($suffix))                     { print("$self: \@FILES=<$dirpopen/*$suffix>:\n"); }
else                                         { print("$self: \@FILES=<$dirpopen/*>:\n"); }

if    (defined($prefix) && defined($suffix)) { @FILES=<$dirpopen/$prefix*$suffix>; }
elsif (defined($prefix))                     { @FILES=<$dirpopen/$prefix*>; }
elsif (defined($suffix))                     { @FILES=<$dirpopen/*$suffix>; }
else                                         { @FILES=<$dirpopen/*>; }

if    (defined($prefix) && defined($suffix)) { print("$self: \@FILES=<$dirpopen/$prefix*$suffix>: \$#FILES=$#FILES\n"); }
elsif (defined($prefix))                     { print("$self: \@FILES=<$dirpopen/$prefix*>: \$#FILES=$#FILES\n"); }
elsif (defined($suffix))                     { print("$self: \@FILES=<$dirpopen/*$suffix>: \$#FILES=$#FILES\n"); }
else                                         { print("$self: \@FILES=<$dirpopen/*>: \$#FILES=$#FILES\n"); }

print""$self: foreach \$key (0..$#FILES):\n");
foreach $key (0..$#FILES) {
	print("$self: \@FILES[$key]=|$FILES[$key]|\n");
}
print""$self: foreach \$key (0..$#FILES): end.\n");

Aby zobaczyć jak działa program należy go uruchomić bez argumentów:

/home/local/code/perlcode/sysdir/DIRHANDLE.pl

program wyświetli informacje o sposobie uruchamiania programu:

Usage: /home/local/code/perlcode/sysdir/DIRHANDLE.pl </path/to/file> [prefix] [suffix]
Examples:
       /home/local/code/perlcode/sysdir/DIRHANDLE.pl /home/local/code/perlcode/sysdir
       /home/local/code/perlcode/sysdir/DIRHANDLE.pl /home/local/code/perlcode/sysdir "[cos]"
       /home/local/code/perlcode/sysdir/DIRHANDLE.pl /home/local/code/perlcode/sysdir "" .pl

jako argument wywołania programu można podać analogiczne jak poniżej argumenty:

/home/local/code/perlcode/sysdir/DIRHANDLE.pl /home/local/code/perlcode/sysdir
/home/local/code/perlcode/sysdir/DIRHANDLE.pl /home/local/code/perlcode/sysdir "[cos]"
/home/local/code/perlcode/sysdir/DIRHANDLE.pl /home/local/code/perlcode/sysdir "" .pl

rezultat będzie zależny od podanego argumentu wywołania programu:

DIRHANDLE.pl: @FILES=</home/local/code/perlcode/sysdir/*>:
DIRHANDLE.pl: @FILES=</home/local/code/perlcode/sysdir/*>: $#FILES=12
DIRHANDLE.pl: foreach $key (0..12):
DIRHANDLE.pl: @FILES[0]=|/home/local/code/perlcode/sysdir/bin|
DIRHANDLE.pl: @FILES[1]=|/home/local/code/perlcode/sysdir/chdir.pl|
DIRHANDLE.pl: @FILES[2]=|/home/local/code/perlcode/sysdir/chroot.pl|
DIRHANDLE.pl: @FILES[3]=|/home/local/code/perlcode/sysdir/closedir.pl|
DIRHANDLE.pl: @FILES[4]=|/home/local/code/perlcode/sysdir/cwd.pl|
DIRHANDLE.pl: @FILES[5]=|/home/local/code/perlcode/sysdir/DIRHANDLE.pl|
DIRHANDLE.pl: @FILES[6]=|/home/local/code/perlcode/sysdir/glob.pl|
DIRHANDLE.pl: @FILES[7]=|/home/local/code/perlcode/sysdir/lib|
DIRHANDLE.pl: @FILES[8]=|/home/local/code/perlcode/sysdir/opendir.pl|
DIRHANDLE.pl: @FILES[9]=|/home/local/code/perlcode/sysdir/readdir.pl|
DIRHANDLE.pl: @FILES[10]=|/home/local/code/perlcode/sysdir/rewinddir.pl|
DIRHANDLE.pl: @FILES[11]=|/home/local/code/perlcode/sysdir/seekdir.pl|
DIRHANDLE.pl: @FILES[12]=|/home/local/code/perlcode/sysdir/telldir.pl|
DIRHANDLE.pl: foreach $key (0..12): end.

DIRHANDLE.pl: @FILES=</home/local/code/perlcode/sysdir/[cos]*>:
DIRHANDLE.pl: @FILES=</home/local/code/perlcode/sysdir/[cos]*>: $#FILES=5
DIRHANDLE.pl: foreach $key (0..5):
DIRHANDLE.pl: @FILES[0]=|/home/local/code/perlcode/sysdir/chdir.pl|
DIRHANDLE.pl: @FILES[1]=|/home/local/code/perlcode/sysdir/chroot.pl|
DIRHANDLE.pl: @FILES[2]=|/home/local/code/perlcode/sysdir/closedir.pl|
DIRHANDLE.pl: @FILES[3]=|/home/local/code/perlcode/sysdir/cwd.pl|
DIRHANDLE.pl: @FILES[4]=|/home/local/code/perlcode/sysdir/opendir.pl|
DIRHANDLE.pl: @FILES[5]=|/home/local/code/perlcode/sysdir/seekdir.pl|
DIRHANDLE.pl: foreach $key (0..5): end.

DIRHANDLE.pl: @FILES=</home/local/code/perlcode/sysdir/*.pl>:
DIRHANDLE.pl: @FILES=</home/local/code/perlcode/sysdir/*.pl>: $#FILES=10
DIRHANDLE.pl: foreach $key (0..10):
DIRHANDLE.pl: @FILES[0]=|/home/local/code/perlcode/sysdir/chdir.pl|
DIRHANDLE.pl: @FILES[1]=|/home/local/code/perlcode/sysdir/chroot.pl|
DIRHANDLE.pl: @FILES[2]=|/home/local/code/perlcode/sysdir/closedir.pl|
DIRHANDLE.pl: @FILES[3]=|/home/local/code/perlcode/sysdir/cwd.pl|
DIRHANDLE.pl: @FILES[4]=|/home/local/code/perlcode/sysdir/DIRHANDLE.pl|
DIRHANDLE.pl: @FILES[5]=|/home/local/code/perlcode/sysdir/glob.pl|
DIRHANDLE.pl: @FILES[6]=|/home/local/code/perlcode/sysdir/opendir.pl|
DIRHANDLE.pl: @FILES[7]=|/home/local/code/perlcode/sysdir/readdir.pl|
DIRHANDLE.pl: @FILES[8]=|/home/local/code/perlcode/sysdir/rewinddir.pl|
DIRHANDLE.pl: @FILES[9]=|/home/local/code/perlcode/sysdir/seekdir.pl|
DIRHANDLE.pl: @FILES[10]=|/home/local/code/perlcode/sysdir/telldir.pl|
DIRHANDLE.pl: foreach $key (0..10): end.

#top glob¶

Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji glob() jest następująca:

glob

Powiązane:

Opis:

description

Example:
zawartość pliku glob.pl

SELECT ALL

#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults



my $self=$0; $self=~s,^.*/,,g;
my ($dirpopen);
my (@FILES, $key);



if ($#ARGV+1<1) {
	print("Usage: $0 </path/to/dir/pattern-file>\n");
	print("Examples:\n");
	print("       $0 '/home/local/code/perlcode/sysdir/\*'\n");
	print("       $0 '/home/local/code/perlcode/sysdir/[cos]\*'\n");
	print("       $0 '/home/local/code/perlcode/sysdir/\*.pl'\n");
	exit(1);
}

$dirpopen=$ARGV[0];

print""$self: \@FILES=glob(\"$dirpopen\"):\n");
@FILES=glob("$dirpopen");
print""$self: \@FILES=glob(\"$dirpopen\"): \$#FILES=$#FILES\n");

print""$self: foreach \$key (0..$#FILES):\n");
foreach $key (0..$#FILES) {
	print("$self: \@FILES[$key]=|$FILES[$key]|\n");
}
print""$self: foreach \$key (0..$#FILES): end.\n");

Aby zobaczyć jak działa program należy go uruchomić bez argumentów:

/home/local/code/perlcode/sysdir/glob.pl

program wyświetli informacje o sposobie uruchamiania programu:

Usage: /home/local/code/perlcode/sysdir/glob.pl </path/to/dir/pattern-file>
Examples:
       /home/local/code/perlcode/sysdir/glob.pl '/home/local/code/perlcode/sysdir/*'
       /home/local/code/perlcode/sysdir/glob.pl '/home/local/code/perlcode/sysdir/[cos]*'
       /home/local/code/perlcode/sysdir/glob.pl '/home/local/code/perlcode/sysdir/*.pl'

jako argument wywołania programu można podać analogiczne jak poniżej argumenty:

/home/local/code/perlcode/sysdir/glob.pl '/home/local/code/perlcode/sysdir/*'
/home/local/code/perlcode/sysdir/glob.pl '/home/local/code/perlcode/sysdir/[cos]*'
/home/local/code/perlcode/sysdir/glob.pl '/home/local/code/perlcode/sysdir/*.pl'

rezultat będzie zależny od podanego argumentu wywołania programu:

glob.pl: @FILES=glob("/home/local/code/perlcode/sysdir/*"):
glob.pl: @FILES=glob("/home/local/code/perlcode/sysdir/*"): $#FILES=12
glob.pl: foreach $key (0..12):
glob.pl: @FILES[0]=|/home/local/code/perlcode/sysdir/bin|
glob.pl: @FILES[1]=|/home/local/code/perlcode/sysdir/chdir.pl|
glob.pl: @FILES[2]=|/home/local/code/perlcode/sysdir/chroot.pl|
glob.pl: @FILES[3]=|/home/local/code/perlcode/sysdir/closedir.pl|
glob.pl: @FILES[4]=|/home/local/code/perlcode/sysdir/cwd.pl|
glob.pl: @FILES[5]=|/home/local/code/perlcode/sysdir/DIRHANDLE.pl|
glob.pl: @FILES[6]=|/home/local/code/perlcode/sysdir/glob.pl|
glob.pl: @FILES[7]=|/home/local/code/perlcode/sysdir/lib|
glob.pl: @FILES[8]=|/home/local/code/perlcode/sysdir/opendir.pl|
glob.pl: @FILES[9]=|/home/local/code/perlcode/sysdir/readdir.pl|
glob.pl: @FILES[10]=|/home/local/code/perlcode/sysdir/rewinddir.pl|
glob.pl: @FILES[11]=|/home/local/code/perlcode/sysdir/seekdir.pl|
glob.pl: @FILES[12]=|/home/local/code/perlcode/sysdir/telldir.pl|
glob.pl: foreach $key (0..12): end.

glob.pl: @FILES=glob("/home/local/code/perlcode/sysdir/[cos]*"):
glob.pl: @FILES=glob("/home/local/code/perlcode/sysdir/[cos]*"): $#FILES=5
glob.pl: foreach $key (0..5):
glob.pl: @FILES[0]=|/home/local/code/perlcode/sysdir/chdir.pl|
glob.pl: @FILES[1]=|/home/local/code/perlcode/sysdir/chroot.pl|
glob.pl: @FILES[2]=|/home/local/code/perlcode/sysdir/closedir.pl|
glob.pl: @FILES[3]=|/home/local/code/perlcode/sysdir/cwd.pl|
glob.pl: @FILES[4]=|/home/local/code/perlcode/sysdir/opendir.pl|
glob.pl: @FILES[5]=|/home/local/code/perlcode/sysdir/seekdir.pl|
glob.pl: foreach $key (0..5): end.

glob.pl: @FILES=glob("/home/local/code/perlcode/sysdir/*.pl"):
glob.pl: @FILES=glob("/home/local/code/perlcode/sysdir/*.pl"): $#FILES=10
glob.pl: foreach $key (0..10):
glob.pl: @FILES[0]=|/home/local/code/perlcode/sysdir/chdir.pl|
glob.pl: @FILES[1]=|/home/local/code/perlcode/sysdir/chroot.pl|
glob.pl: @FILES[2]=|/home/local/code/perlcode/sysdir/closedir.pl|
glob.pl: @FILES[3]=|/home/local/code/perlcode/sysdir/cwd.pl|
glob.pl: @FILES[4]=|/home/local/code/perlcode/sysdir/DIRHANDLE.pl|
glob.pl: @FILES[5]=|/home/local/code/perlcode/sysdir/glob.pl|
glob.pl: @FILES[6]=|/home/local/code/perlcode/sysdir/opendir.pl|
glob.pl: @FILES[7]=|/home/local/code/perlcode/sysdir/readdir.pl|
glob.pl: @FILES[8]=|/home/local/code/perlcode/sysdir/rewinddir.pl|
glob.pl: @FILES[9]=|/home/local/code/perlcode/sysdir/seekdir.pl|
glob.pl: @FILES[10]=|/home/local/code/perlcode/sysdir/telldir.pl|
glob.pl: foreach $key (0..10): end.

#top mkdir¶

Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji mkdir() jest następująca:

mkdir

Powiązane:
mkdir(), rmdir(),

Opis:

description

Example:
zawartość pliku mkdir.pl

SELECT ALL

#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults



my $self=$0; $self=~s,^.*/,,g;
my ($dirname, $newdir, $deldir, $result);



if ($#ARGV+1<2) {
	print("Usage: $0 </path/to/create-directory> </path/to/remove-directory>\n");
	print("Examples:\n");
	$dirname=$0;
	$dirname=~s,/[^/]*$,,g;
	print("       $0 $dirname/tempdir1 $dirname/tempdir2\n");
	print("       $0 $dirname/tempdir1 $dirname/tempdir2\n");
	print("       $0 $dirname/tempdir1 $dirname/tempdir1\n");
	print("       $0 /rootnew /root\n");
	exit(1);
}

$newdir=$ARGV[0];
$deldir=$ARGV[1];

$result=mkdir($newdir);
if (int($result)>0) { print("$self: \$result=mkdir($newdir): \$result=$result if (int(\$result)>0): Sucessful mkdir().\n"); }
else                { print("$self: \$result=mkdir($newdir): \$result=$result if (int(\$result)>0): Unable to mkdir(), Reason: $!\n"); }

$result=rmdir($deldir);
if (int($result)>0) { print("$self: \$result=rmdir($deldir): \$result=$result if (int(\$result)>0): Sucessful rmdir().\n"); }
else                { print("$self: \$result=rmdir($deldir): \$result=$result if (int(\$result)>0): Unable to rmdir(), Reason: $!\n"); }

Aby zobaczyć jak działa program należy go uruchomić bez argumentów:

/home/local/code/perlcode/sysdir/mkdir.pl

program wyświetli informacje o sposobie uruchamiania programu:

Usage: /home/local/code/perlcode/sysdir/mkdir.pl </path/to/create-directory> </path/to/remove-directory>
Examples:
       /home/local/code/perlcode/sysdir/mkdir.pl /home/local/code/perlcode/sysdir/tempdir1 /home/local/code/perlcode/sysdir/tempdir2
       /home/local/code/perlcode/sysdir/mkdir.pl /home/local/code/perlcode/sysdir/tempdir1 /home/local/code/perlcode/sysdir/tempdir2
       /home/local/code/perlcode/sysdir/mkdir.pl /home/local/code/perlcode/sysdir/tempdir1 /home/local/code/perlcode/sysdir/tempdir1
       /home/local/code/perlcode/sysdir/mkdir.pl /rootnew /root

jako argument wywołania programu można podać analogiczne jak poniżej argumenty:

/home/local/code/perlcode/sysdir/mkdir.pl /home/local/code/perlcode/sysdir/tempdir1 /home/local/code/perlcode/sysdir/tempdir2
/home/local/code/perlcode/sysdir/mkdir.pl /home/local/code/perlcode/sysdir/tempdir1 /home/local/code/perlcode/sysdir/tempdir2
/home/local/code/perlcode/sysdir/mkdir.pl /home/local/code/perlcode/sysdir/tempdir1 /home/local/code/perlcode/sysdir/tempdir1
/home/local/code/perlcode/sysdir/mkdir.pl /rootnew /root

rezultat będzie zależny od podanego argumentu wywołania programu:

mkdir.pl: $result=mkdir(/home/local/code/perlcode/sysdir/tempdir1): $result=1 if (int($result)>0): Sucessful mkdir().
mkdir.pl: $result=rmdir(/home/local/code/perlcode/sysdir/tempdir2): $result=0 if (int($result)>0): Unable to rmdir(), Reason: No such file or directory

mkdir.pl: $result=mkdir(/home/local/code/perlcode/sysdir/tempdir1): $result=0 if (int($result)>0): Unable to mkdir(), Reason: File exists
mkdir.pl: $result=rmdir(/home/local/code/perlcode/sysdir/tempdir2): $result=0 if (int($result)>0): Unable to rmdir(), Reason: No such file or directory

mkdir.pl: $result=mkdir(/home/local/code/perlcode/sysdir/tempdir1): $result=0 if (int($result)>0): Unable to mkdir(), Reason: File exists
mkdir.pl: $result=rmdir(/home/local/code/perlcode/sysdir/tempdir1): $result=1 if (int($result)>0): Sucessful rmdir().

mkdir.pl: $result=mkdir(/rootnew): $result=0 if (int($result)>0): Unable to mkdir(), Reason: Permission denied
mkdir.pl: $result=rmdir(/root): $result=0 if (int($result)>0): Unable to rmdir(), Reason: Permission denied

#top opendir¶

Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji opendir() jest następująca:

opendir

Powiązane:
closedir(), opendir(), readdir(), rewinddir(), seekdir(), telldir(),

Opis:

description

Example:
zawartość pliku opendir.pl

SELECT ALL

#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults



if ($#ARGV+1<1) {
	print("Usage: $0 </path/to/directory>\n");
	print("Examples:\n");
	my $dirname=$0;
	$dirname=~s,/[^/]*$,,g;
	print("       $0 $dirname\n");
	exit(1);
}

my ($entry);
if (-e $ARGV[0] && -d $ARGV[0]) {
	if (opendir(DIR,$ARGV[0])) {
		printt"$0: Successful opendir(DIR,$ARGV[0])\n");
		while ($entry=readdir(DIR)) {
			printn"$0: \$entry=readdir(DIR): \$entry=|$entry|\n");
		}
		printt"$0: Successful opendir(DIR,$ARGV[0])\n");
		while ($entry=readdir(DIR)) {
			printn"$0: \$entry=readdir(DIR): \$entry=|$entry|\n");
		}
		closedir(DIR);
	} else {
		printt"$0: Unable opendir(DIR,$ARGV[0]), Reason: $!\n");
	}
} else {
	print("$0: $ARGV[0] does not exists or not a directory.\n");
}

Aby zobaczyć jak działa program należy go uruchomić bez argumentów:

/home/local/code/perlcode/sysdir/opendir.pl

program wyświetli informacje o sposobie uruchamiania programu:

Usage: /home/local/code/perlcode/sysdir/opendir.pl </path/to/directory>
Examples:
       /home/local/code/perlcode/sysdir/opendir.pl /home/local/code/perlcode/sysdir

jako argument wywołania programu można podać analogiczne jak poniżej argumenty:

/home/local/code/perlcode/sysdir/opendir.pl /home/local/code/perlcode/sysdir

rezultat będzie zależny od podanego argumentu wywołania programu:

opendir.pl: if (opendir(GLOB(0x9943dd8),/home/local/code/perlcode/sysdir)): Successful opendir().
opendir.pl: while ($entry=readdir(GLOB(0x9943dd8))):
opendir.pl: $entry=readdir(GLOB(0x9943dd8)): $entry=|cwd.pl| telldir(GLOB(0x9943dd8))=330554184
opendir.pl: $entry=readdir(GLOB(0x9943dd8)): $entry=|seekdir.pl| telldir(GLOB(0x9943dd8))=364555688
opendir.pl: $entry=readdir(GLOB(0x9943dd8)): $entry=|telldir.pl| telldir(GLOB(0x9943dd8))=418421321
opendir.pl: $entry=readdir(GLOB(0x9943dd8)): $entry=|bin| telldir(GLOB(0x9943dd8))=797476294
opendir.pl: $entry=readdir(GLOB(0x9943dd8)): $entry=|lib| telldir(GLOB(0x9943dd8))=818073032
opendir.pl: $entry=readdir(GLOB(0x9943dd8)): $entry=|chdir.pl| telldir(GLOB(0x9943dd8))=900825861
opendir.pl: $entry=readdir(GLOB(0x9943dd8)): $entry=|rewinddir.pl| telldir(GLOB(0x9943dd8))=989414109
opendir.pl: $entry=readdir(GLOB(0x9943dd8)): $entry=|closedir.pl| telldir(GLOB(0x9943dd8))=1319773662
opendir.pl: $entry=readdir(GLOB(0x9943dd8)): $entry=|opendir.pl| telldir(GLOB(0x9943dd8))=1319866423
opendir.pl: $entry=readdir(GLOB(0x9943dd8)): $entry=|readdir.pl| telldir(GLOB(0x9943dd8))=1345128052
opendir.pl: $entry=readdir(GLOB(0x9943dd8)): $entry=|..| telldir(GLOB(0x9943dd8))=1690600975
opendir.pl: $entry=readdir(GLOB(0x9943dd8)): $entry=|DIRHANDLE.pl| telldir(GLOB(0x9943dd8))=1955385186
opendir.pl: $entry=readdir(GLOB(0x9943dd8)): $entry=|chroot.pl| telldir(GLOB(0x9943dd8))=2078465677
opendir.pl: $entry=readdir(GLOB(0x9943dd8)): $entry=|glob.pl| telldir(GLOB(0x9943dd8))=2099643303
opendir.pl: $entry=readdir(GLOB(0x9943dd8)): $entry=|.| telldir(GLOB(0x9943dd8))=2147483647
opendir.pl: while ($entry=readdir(GLOB(0x9943dd8))): end.
opendir.pl: while ($entry=readdir(GLOB(0x9943dd8))):
opendir.pl: while ($entry=readdir(GLOB(0x9943dd8))): end.
opendir.pl: closedir(GLOB(0x9943dd8)):

#top readdir¶

Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji readdir() jest następująca:

readdir

Powiązane:
closedir(), opendir(), readdir(), rewinddir(), seekdir(), telldir(),

Opis:

description

#top rewinddir¶

Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji rewinddir() jest następująca:

rewinddir

Powiązane:
closedir(), opendir(), readdir(), rewinddir(), seekdir(), telldir(),

Opis:

description

Example:
zawartość pliku rewinddir.pl

SELECT ALL

#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults



my $self=$0; $self=~s,^.*/,,g;
my ($dirname, $DH, $entry, $result);



if ($#ARGV+1<1) {
	print("Usage: $0 </path/to/directory>\n");
	print("Examples:\n");
	$dirname=$0;
	$dirname=~s,/[^/]*$,,g;
	print("       $0 $dirname\n");
	exit(1);
}

$dirname=$ARGV[0];

if (-e $dirname && -d $dirname) {
	if (opendir($DH,$dirname)) {
		printt"$self: if (opendir($DH,$dirname)): Successful opendir().\n");
		
		printt"$self: while (\$entry=readdir($DH)):\n");
		while ($entry=readdir($DH)) {
			printn"$self: \$entry=readdir($DH): \$entry=|$entry| telldir($DH)=".telldir($DH)."\n");
		}
		printt"$self: while (\$entry=readdir($DH)): end.\n");
		
		printt"$self: \$result=rewinddir($DH):\n");
		$result=rewinddir($DH);
		if (int($result)>0) { print("$self: \$result=rewinddir($DH): \$result=$result if (int(\$result)>0): Sucessful rewinddir().\n"); }
		else                { print("$self: \$result=rewinddir($DH): \$result=$result if (int(\$result)>0): else: Unable to rewinddir(), Reason $!\n"); }
		$result=telldir($DH);
		printt"$self: \$result=telldir($DH): \$result=$result\n");
		
		printt"$self: while (\$entry=readdir($DH)):\n");
		while ($entry=readdir($DH)) {
			printn"$self: \$entry=readdir($DH): \$entry=|$entry| telldir($DH)=".telldir($DH)."\n");
		}
		printt"$self: while (\$entry=readdir($DH)): end.\n");
		
		printt"$self: closedir($DH):\n");
		closedir($DH);
	} else {
		printt"$self: if (opendir($DH,$dirname)): else: Unable to opendir(), Reason: $!\n");
	}
} else {
	print("$self: Entry '$dirname' does not exists or not a directory!\n");
}

Aby zobaczyć jak działa program należy go uruchomić bez argumentów:

/home/local/code/perlcode/sysdir/rewinddir.pl

program wyświetli informacje o sposobie uruchamiania programu:

Usage: /home/local/code/perlcode/sysdir/rewinddir.pl </path/to/directory>
Examples:
       /home/local/code/perlcode/sysdir/rewinddir.pl /home/local/code/perlcode/sysdir

jako argument wywołania programu można podać analogiczne jak poniżej argumenty:

/home/local/code/perlcode/sysdir/rewinddir.pl /home/local/code/perlcode/sysdir

rezultat będzie zależny od podanego argumentu wywołania programu:

rewinddir.pl: if (opendir(GLOB(0x973cdd8),/home/local/code/perlcode/sysdir)): Successful opendir().
rewinddir.pl: while ($entry=readdir(GLOB(0x973cdd8))):
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|cwd.pl| telldir(GLOB(0x973cdd8))=330554184
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|seekdir.pl| telldir(GLOB(0x973cdd8))=364555688
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|telldir.pl| telldir(GLOB(0x973cdd8))=418421321
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|bin| telldir(GLOB(0x973cdd8))=797476294
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|lib| telldir(GLOB(0x973cdd8))=818073032
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|chdir.pl| telldir(GLOB(0x973cdd8))=900825861
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|rewinddir.pl| telldir(GLOB(0x973cdd8))=989414109
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|closedir.pl| telldir(GLOB(0x973cdd8))=1319773662
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|opendir.pl| telldir(GLOB(0x973cdd8))=1319866423
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|readdir.pl| telldir(GLOB(0x973cdd8))=1345128052
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|..| telldir(GLOB(0x973cdd8))=1690600975
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|DIRHANDLE.pl| telldir(GLOB(0x973cdd8))=1955385186
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|chroot.pl| telldir(GLOB(0x973cdd8))=2078465677
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|glob.pl| telldir(GLOB(0x973cdd8))=2099643303
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|.| telldir(GLOB(0x973cdd8))=2147483647
rewinddir.pl: while ($entry=readdir(GLOB(0x973cdd8))): end.
rewinddir.pl: $result=rewinddir(GLOB(0x973cdd8)):
rewinddir.pl: $result=rewinddir(GLOB(0x973cdd8)): $result=1 if (int($result)>0): Sucessful rewinddir().
rewinddir.pl: $result=telldir(GLOB(0x973cdd8)): $result=0
rewinddir.pl: while ($entry=readdir(GLOB(0x973cdd8))):
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|cwd.pl| telldir(GLOB(0x973cdd8))=330554184
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|seekdir.pl| telldir(GLOB(0x973cdd8))=364555688
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|telldir.pl| telldir(GLOB(0x973cdd8))=418421321
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|bin| telldir(GLOB(0x973cdd8))=797476294
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|lib| telldir(GLOB(0x973cdd8))=818073032
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|chdir.pl| telldir(GLOB(0x973cdd8))=900825861
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|rewinddir.pl| telldir(GLOB(0x973cdd8))=989414109
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|closedir.pl| telldir(GLOB(0x973cdd8))=1319773662
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|opendir.pl| telldir(GLOB(0x973cdd8))=1319866423
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|readdir.pl| telldir(GLOB(0x973cdd8))=1345128052
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|..| telldir(GLOB(0x973cdd8))=1690600975
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|DIRHANDLE.pl| telldir(GLOB(0x973cdd8))=1955385186
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|chroot.pl| telldir(GLOB(0x973cdd8))=2078465677
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|glob.pl| telldir(GLOB(0x973cdd8))=2099643303
rewinddir.pl: $entry=readdir(GLOB(0x973cdd8)): $entry=|.| telldir(GLOB(0x973cdd8))=2147483647
rewinddir.pl: while ($entry=readdir(GLOB(0x973cdd8))): end.
rewinddir.pl: closedir(GLOB(0x973cdd8)):

#top rmdir¶

Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji rmdir() jest następująca:

rmdir

Powiązane:
mkdir(), rmdir(),

Opis:

description

#top seekdir¶

Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji seekdir() jest następująca:

seekdir

Powiązane:
closedir(), opendir(), readdir(), rewinddir(), seekdir(), telldir(),

Opis:

description

Example:
zawartość pliku seekdir.pl

SELECT ALL

#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults



my $self=$0; $self=~s,^.*/,,g;
my ($dirname, $DH, $entry, $result);



if ($#ARGV+1<1) {
	print("Usage: $0 </path/to/directory>\n");
	print("Examples:\n");
	$dirname=$0;
	$dirname=~s,/[^/]*$,,g;
	print("       $0 $dirname\n");
	exit(1);
}

$dirname=$ARGV[0];

if (-e $dirname && -d $dirname) {
	if (opendir($DH,$dirname)) {
		printt"$self: if (opendir($DH,$dirname)): Successful opendir().\n");
		
		printt"$self: while (\$entry=readdir($DH)):\n");
		while ($entry=readdir($DH)) {
			printn"$self: \$entry=readdir($DH): \$entry=|$entry| telldir($DH)=".telldir($DH)."\n");
		}
		printt"$self: while (\$entry=readdir($DH)): end.\n");
		
		printt"$self: \$result=seekdir($DH, 0):\n");
		$result=seekdir($DH, 0);
		if (int($result)>0) { print("$self: \$result=seekdir($DH, 0): \$result=$result if (int(\$result)>0): Sucessful seekdir().\n"); }
		else                { print("$self: \$result=seekdir($DH, 0): \$result=$result if (int(\$result)>0): Unable to seekdir(), Reason: $!\n"); }
		$result=telldir($DH);
		printt"$self: \$result=telldir($DH): \$result=$result\n");
		
		printt"$self: while (\$entry=readdir($DH)):\n");
		while ($entry=readdir($DH)) {
			printn"$self: \$entry=readdir($DH): \$entry=|$entry| telldir($DH)=".telldir($DH)."\n");
		}
		printt"$self: while (\$entry=readdir($DH)): end.\n");
		
		printt"$self: closedir($DH):\n");
		closedir($DH);
	} else {
		printt"$self: if (opendir($DH,$dirname)): else: Unable to opendir(), Reason: $!\n");
	}
} else {
	print("$self: Entry '$dirname' does not exists or not a directory!\n");
}

Aby zobaczyć jak działa program należy go uruchomić bez argumentów:

/home/local/code/perlcode/sysdir/seekdir.pl

program wyświetli informacje o sposobie uruchamiania programu:

Usage: /home/local/code/perlcode/sysdir/seekdir.pl </path/to/directory>
Examples:
       /home/local/code/perlcode/sysdir/seekdir.pl /home/local/code/perlcode/sysdir

jako argument wywołania programu można podać analogiczne jak poniżej argumenty:

/home/local/code/perlcode/sysdir/seekdir.pl /home/local/code/perlcode/sysdir

rezultat będzie zależny od podanego argumentu wywołania programu:

seekdir.pl: if (opendir(GLOB(0x98e0dd8),/home/local/code/perlcode/sysdir)): Successful opendir().
seekdir.pl: while ($entry=readdir(GLOB(0x98e0dd8))):
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|cwd.pl| telldir(GLOB(0x98e0dd8))=330554184
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|seekdir.pl| telldir(GLOB(0x98e0dd8))=364555688
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|telldir.pl| telldir(GLOB(0x98e0dd8))=418421321
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|bin| telldir(GLOB(0x98e0dd8))=797476294
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|lib| telldir(GLOB(0x98e0dd8))=818073032
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|chdir.pl| telldir(GLOB(0x98e0dd8))=900825861
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|rewinddir.pl| telldir(GLOB(0x98e0dd8))=989414109
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|closedir.pl| telldir(GLOB(0x98e0dd8))=1319773662
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|opendir.pl| telldir(GLOB(0x98e0dd8))=1319866423
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|readdir.pl| telldir(GLOB(0x98e0dd8))=1345128052
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|..| telldir(GLOB(0x98e0dd8))=1690600975
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|DIRHANDLE.pl| telldir(GLOB(0x98e0dd8))=1955385186
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|chroot.pl| telldir(GLOB(0x98e0dd8))=2078465677
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|glob.pl| telldir(GLOB(0x98e0dd8))=2099643303
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|.| telldir(GLOB(0x98e0dd8))=2147483647
seekdir.pl: while ($entry=readdir(GLOB(0x98e0dd8))): end.
seekdir.pl: $result=seekdir(GLOB(0x98e0dd8), 0):
seekdir.pl: $result=seekdir(GLOB(0x98e0dd8), 0): $result=1 if (int($result)>0): Sucessful seekdir().
seekdir.pl: $result=telldir(GLOB(0x98e0dd8)): $result=0
seekdir.pl: while ($entry=readdir(GLOB(0x98e0dd8))):
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|cwd.pl| telldir(GLOB(0x98e0dd8))=330554184
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|seekdir.pl| telldir(GLOB(0x98e0dd8))=364555688
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|telldir.pl| telldir(GLOB(0x98e0dd8))=418421321
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|bin| telldir(GLOB(0x98e0dd8))=797476294
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|lib| telldir(GLOB(0x98e0dd8))=818073032
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|chdir.pl| telldir(GLOB(0x98e0dd8))=900825861
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|rewinddir.pl| telldir(GLOB(0x98e0dd8))=989414109
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|closedir.pl| telldir(GLOB(0x98e0dd8))=1319773662
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|opendir.pl| telldir(GLOB(0x98e0dd8))=1319866423
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|readdir.pl| telldir(GLOB(0x98e0dd8))=1345128052
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|..| telldir(GLOB(0x98e0dd8))=1690600975
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|DIRHANDLE.pl| telldir(GLOB(0x98e0dd8))=1955385186
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|chroot.pl| telldir(GLOB(0x98e0dd8))=2078465677
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|glob.pl| telldir(GLOB(0x98e0dd8))=2099643303
seekdir.pl: $entry=readdir(GLOB(0x98e0dd8)): $entry=|.| telldir(GLOB(0x98e0dd8))=2147483647
seekdir.pl: while ($entry=readdir(GLOB(0x98e0dd8))): end.
seekdir.pl: closedir(GLOB(0x98e0dd8)):

#top telldir¶

Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji telldir() jest następująca:

telldir

Powiązane:
closedir(), opendir(), readdir(), rewinddir(), seekdir(), telldir(),

Opis:

description

Zmodyfikowany ostatnio: 2014/09/02 10:02:24 (9 lat temu), textsize: 41,5 kB, htmlsize: 70,7 kB

Zapraszam do komentowania, zgłaszania sugestii, propozycji, własnych przykładów, ...

Dodaj komentarzKomentarze użytkowników