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 Strings¶

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

code / perl / strings

#top Predefined Constants¶

No Predefined Constants here.

#top Datatypes / MACROS¶

No Datatypes here.

#top Strings Functions¶

#top getchar¶

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

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

getchar

Powiązane:
getchar(), gets(),

Opis:

description

Example:
zawartość pliku getchar.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 POSIX;



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



if ($#ARGV+1<0) {
	print("Usage: $0\n");
	exit(1);
}

while (defined($onechar=getchar())) {
	$chhex=sprintf('%02X', ord($onechar));
	print("$self: \$onechar=getchar()): \$onechar=|$onechar| ord(\$onechar)=0x$chhex\n");
}

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

/home/local/code/perlcode/strings/getchar.pl

w oczekiwaniu programu na stosowne argumenty należy wcisnąć dowolny klawisz (oraz nacisnąć klawisz Enter dla zatwierdzenia wprowadzonych danych, aby przerwać wykonywanie programu należy nacisnąć kombinację klawiszy CTLR+C):
rezultat będzie zależny od podanego argumentu wywołania programu:

a
getchar.pl: $onechar=getchar()): $onechar=|a| ord($onechar)=0x61
getchar.pl: $onechar=getchar()): $onechar=|
| ord($onechar)=0x0A
b
getchar.pl: $onechar=getchar()): $onechar=|b| ord($onechar)=0x62
getchar.pl: $onechar=getchar()): $onechar=|
| ord($onechar)=0x0A
c
getchar.pl: $onechar=getchar()): $onechar=|c| ord($onechar)=0x63
getchar.pl: $onechar=getchar()): $onechar=|
| ord($onechar)=0x0A
cc
getchar.pl: $onechar=getchar()): $onechar=|c| ord($onechar)=0x63
getchar.pl: $onechar=getchar()): $onechar=|c| ord($onechar)=0x63
getchar.pl: $onechar=getchar()): $onechar=|
| ord($onechar)=0x0A
ccc
getchar.pl: $onechar=getchar()): $onechar=|c| ord($onechar)=0x63
getchar.pl: $onechar=getchar()): $onechar=|c| ord($onechar)=0x63
getchar.pl: $onechar=getchar()): $onechar=|c| ord($onechar)=0x63
getchar.pl: $onechar=getchar()): $onechar=|
| ord($onechar)=0x0A

getchar.pl: $onechar=getchar()): $onechar=|
| ord($onechar)=0x0A

#top gets¶

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

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

gets

Powiązane:
getchar(), gets(),

Opis:

description

Example:
zawartość pliku gets.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 POSIX;



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



if ($#ARGV+1<0) {
	print("Usage: $0\n");
	exit(1);
}

while (defined($onechar=gets())) {
	$chhex=sprintf('%02X', ord($onechar));
	print("$self: \$onechar=gets()): \$onechar=|$onechar| ord(\$onechar)=0x$chhex\n");
}

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

/home/local/code/perlcode/strings/gets.pl

a
gets.pl: $onechar=gets()): $onechar=|a
| ord($onechar)=0x61
b
gets.pl: $onechar=gets()): $onechar=|b
| ord($onechar)=0x62
c
gets.pl: $onechar=gets()): $onechar=|c
| ord($onechar)=0x63
cc
gets.pl: $onechar=gets()): $onechar=|cc
| ord($onechar)=0x63
ccc
gets.pl: $onechar=gets()): $onechar=|ccc
| ord($onechar)=0x63

gets.pl: $onechar=gets()): $onechar=|
| ord($onechar)=0x0A

#top hex¶

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

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

hex

Powiązane:
hex(), oct(),

Opis:

description

Example:
zawartość pliku hex.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 ($hexarg1, $octarg2, $decval1, $decval2);



if ($#ARGV+1<2) {
	print("Usage: $0 <hex-value> <oct-value>\n");
	print("Examples:\n");
	print("       $0 00 00\n");
	print("       $0 0F 10\n");
	print("       $0 7F 20\n");
	print("       $0 FF 40\n");
	exit(1);
}

$hexarg1=$ARGV[0];
$octarg2=$ARGV[1];


$decval1=hex($hexarg1);
print""$0: \$decval1=hex($hexarg1): \$decval1=$decval1\n");

$decval2=oct($octarg2);
print""$0: \$decval2=oct($octarg2): \$decval2=$decval2\n");

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

/home/local/code/perlcode/math/hex.pl

program wyświetli informacje o sposobie uruchamiania programu:

Usage: /home/local/code/perlcode/math/hex.pl <hex-value> <oct-value>
Examples:
       /home/local/code/perlcode/math/hex.pl 00 00
       /home/local/code/perlcode/math/hex.pl 0F 10
       /home/local/code/perlcode/math/hex.pl 7F 20
       /home/local/code/perlcode/math/hex.pl FF 40

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

/home/local/code/perlcode/math/hex.pl 00 00
/home/local/code/perlcode/math/hex.pl 0F 10
/home/local/code/perlcode/math/hex.pl 7F 20
/home/local/code/perlcode/math/hex.pl FF 40

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

/home/local/code/perlcode/math/hex.pl: $decval1=hex(00): $decval1=0
/home/local/code/perlcode/math/hex.pl: $decval2=oct(00): $decval2=0

/home/local/code/perlcode/math/hex.pl: $decval1=hex(0F): $decval1=15
/home/local/code/perlcode/math/hex.pl: $decval2=oct(10): $decval2=8

/home/local/code/perlcode/math/hex.pl: $decval1=hex(7F): $decval1=127
/home/local/code/perlcode/math/hex.pl: $decval2=oct(20): $decval2=16

/home/local/code/perlcode/math/hex.pl: $decval1=hex(FF): $decval1=255
/home/local/code/perlcode/math/hex.pl: $decval2=oct(40): $decval2=32

#top index¶

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

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

index

Powiązane:
index(), rindex(),

Opis:

description

Example:
zawartość pliku index.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 ($contdata, $searched, $posfirst, $poslasts);



if ($#ARGV+1<2) {
	print("Usage: $0 <contdata> <searched>\n");
	print("Examples:\n");
	print("       $0 \"some text for demonstrate search for given pattern\" for\n");
	print("       $0 \"some text for demonstrate search for given pattern\" some\n");
	print("       $0 \"some text for demonstrate search for given pattern\" pattern\n");
	exit(1);
}

$contdata=$ARGV[0];
$searched=$ARGV[1];

$posfirst= index($contdata, $searched);
print""$self: \$posfirst= index($contdata, $searched): \$posfirst=$posfirst\n");

$poslasts=rindex($contdata, $searched);
print""$self: \$poslasts=rindex($contdata, $searched): \$poslasts=$poslasts\n");

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

/home/local/code/perlcode/strings/index.pl

program wyświetli informacje o sposobie uruchamiania programu:

Usage: /home/local/code/perlcode/strings/index.pl <contdata> <searched>
Examples:
       /home/local/code/perlcode/strings/index.pl "some text for demonstrate search for given pattern" for
       /home/local/code/perlcode/strings/index.pl "some text for demonstrate search for given pattern" some
       /home/local/code/perlcode/strings/index.pl "some text for demonstrate search for given pattern" pattern
       /home/local/code/perlcode/strings/index.pl "some text for demonstrate search for given pattern" notexistedsearch

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

/home/local/code/perlcode/strings/index.pl "some text for demonstrate search for given pattern" for
/home/local/code/perlcode/strings/index.pl "some text for demonstrate search for given pattern" some
/home/local/code/perlcode/strings/index.pl "some text for demonstrate search for given pattern" pattern
/home/local/code/perlcode/strings/index.pl "some text for demonstrate search for given pattern" notexistedsearch

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

index.pl: $posfirst= index(some text for demonstrate search for given pattern, for): $posfirst=10
index.pl: $poslasts=rindex(some text for demonstrate search for given pattern, for): $poslasts=33

index.pl: $posfirst= index(some text for demonstrate search for given pattern, some): $posfirst=0
index.pl: $poslasts=rindex(some text for demonstrate search for given pattern, some): $poslasts=0

index.pl: $posfirst= index(some text for demonstrate search for given pattern, pattern): $posfirst=43
index.pl: $poslasts=rindex(some text for demonstrate search for given pattern, pattern): $poslasts=43

index.pl: $posfirst= index(some text for demonstrate search for given pattern, notexistedsearch): $posfirst=-1
index.pl: $poslasts=rindex(some text for demonstrate search for given pattern, notexistedsearch): $poslasts=-1

#top length¶

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

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

length

Powiązane:

Opis:

description

Example:
zawartość pliku length.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 ($contdata, $contsize);



if ($#ARGV+1<1) {
	print("Usage: $0 <contdata> <start> <length>\n");
	print("Examples:\n");
	print("       $0 \"some text for demonstrate length() subroutine\"\n");
	print("       $0 \"some text\"\n");
	print("       $0 some text\n");
	print("       $0 some text without quotes\n");
	exit(1);
}

$contdata=$ARGV[0];
$contsize=length($contdata);
print""$self: \$contsize=length(|$contdata|): \$contsize=$contsize\n");

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

/home/local/code/perlcode/strings/length.pl

program wyświetli informacje o sposobie uruchamiania programu:

Usage: /home/local/code/perlcode/strings/length.pl <contdata> <start> <length>
Examples:
       /home/local/code/perlcode/strings/length.pl "some text for demonstrate length() subroutine"
       /home/local/code/perlcode/strings/length.pl "some text"
       /home/local/code/perlcode/strings/length.pl some text
       /home/local/code/perlcode/strings/length.pl some text without quotes

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

/home/local/code/perlcode/strings/length.pl "some text for demonstrate length() subroutine"
/home/local/code/perlcode/strings/length.pl "some text"
/home/local/code/perlcode/strings/length.pl some text
/home/local/code/perlcode/strings/length.pl some text without quotes

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

length.pl: $contsize=length(|some text for demonstrate length() subroutine|): $contsize=45

length.pl: $contsize=length(|some text|): $contsize=9

length.pl: $contsize=length(|some|): $contsize=4

length.pl: $contsize=length(|some|): $contsize=4

#top oct¶

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

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

oct

Powiązane:
hex(), oct(),

Opis:

description

#top pack¶

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

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

pack EXPR, LIST

Powiązane:
pack(), unpack(),

Opis:

Funkcja pack()

Argumenty:
EXPR -

Here is the table which gives values to be used in TEMPLATE:

Character	Description
a	ASCII character string padded with null characters
A	ASCII character string padded with spaces
b	String of bits, lowest first
B	String of bits, highest first
c	A signed character (range usually -128 to 127)
C	An unsigned character (usually 8 bits)
d	A double-precision floating-point number
f	A single-precision floating-point number
h	Hexadecimal string, lowest digit first
H	Hexadecimal string, highest digit first
i	A signed integer
I	An unsigned integer
l	A signed long integer
L	An unsigned long integer
n	A short integer in network order
N	A long integer in network order
p	A pointer to a string
s	A signed short integer
S	An unsigned short integer
u	Convert to uuencode format
v	A short integer in VAX (little-endian) order
V	A long integer in VAX order
x	A null byte
X	Indicates "go back one byte"
@	Fill with nulls (ASCII 0)

LIST -

Zwracana wartość:
LIST -

Example:
zawartość pliku pack.pl

SELECT ALL

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

/home/local/code/perlcode/strings/pack.pl

program wyświetli informacje o sposobie uruchamiania programu:

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

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

#top printf¶

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

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

printf

Powiązane:
printf(), sprintf(),

Opis:

description

Example:
zawartość pliku printf.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 ($string);



if ($#ARGV+1<0) {
	print("Usage: $0\n");
	exit(1);
}

printf('%s: printf formatted string into stdout, main(): $#ARGV+1=%d $0=%s'"\n", $self, $#ARGV+1, $0);"\n", $self, $#ARGV+1, $0);

$string=sprintf('%s: sprintf formatted string into return string, main(): $#ARGV+1=%d $0=%s'."\n", $self, $#ARGV+1, $0);
print($string);

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

/home/local/code/perlcode/strings/printf.pl

program wyświetli stosowne informacje o sposobie działania:

printf.pl: printf formatted string into stdout, main(): $#ARGV+1=0 $0=/home/local/code/perlcode/strings/printf.pl
printf.pl: sprintf formatted string into return string, main(): $#ARGV+1=0 $0=/home/local/code/perlcode/strings/printf.pl

#top rindex¶

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

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

rindex

Powiązane:
index(), rindex(),

Opis:

description

#top sprintf¶

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

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

sprintf

Powiązane:
printf(), sprintf(),

Opis:

description

#top substr¶

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

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

substr

Powiązane:

Opis:

description

Example:
zawartość pliku substr.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 ($contdata, $start, $length, $partstr, $i);



if ($#ARGV+1<3) {
	print("Usage: $0 <contdata> <start> <length>\n");
	print("Examples:\n");
	print("       $0 \"some text for demonstrate substr() subroutine\" 0 5\n");
	print("       $0 \"some text for demonstrate substr() subroutine\" 0 250\n");
	print("       $0 \"some text for demonstrate substr() subroutine\" 20 5\n");
	print("       $0 \"some text for demonstrate substr() subroutine\" 20 50\n");
	print("       $0 \"some text for demonstrate substr() subroutine\" -20 5\n");
	print("       $0 \"some text for demonstrate substr() subroutine\" -20 50\n");
	exit(1);
}

$contdata=$ARGV[0];
$start=int($ARGV[1]);
$length=int($ARGV[2]);

$partstr=substr($contdata, $start, $length);
print""$self: \$partstr=substr(|$contdata|, $start, $length): \$partstr=|$partstr|\n");
print""$self:\n");

print""$self: \$contdata=|$contdata|\n");

print""$self: \$contdata=|");
if ($start<0) { $start=length($contdata)+$start; }
for ($i=0;$i<$start;$i++) { print(" "); }
print($partstr);
for (;$i<length($contdata) - length($partstr);$i++) { print(" "); }
print""|\n");

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

/home/local/code/perlcode/strings/substr.pl

program wyświetli informacje o sposobie uruchamiania programu:

Usage: /home/local/code/perlcode/strings/substr.pl <contdata> <start> <length>
Examples:
       /home/local/code/perlcode/strings/substr.pl "some text for demonstrate substr() subroutine" 0 5
       /home/local/code/perlcode/strings/substr.pl "some text for demonstrate substr() subroutine" 0 250
       /home/local/code/perlcode/strings/substr.pl "some text for demonstrate substr() subroutine" 20 5
       /home/local/code/perlcode/strings/substr.pl "some text for demonstrate substr() subroutine" 20 50
       /home/local/code/perlcode/strings/substr.pl "some text for demonstrate substr() subroutine" -20 5
       /home/local/code/perlcode/strings/substr.pl "some text for demonstrate substr() subroutine" -20 50

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

/home/local/code/perlcode/strings/substr.pl "some text for demonstrate substr() subroutine" 0 5
/home/local/code/perlcode/strings/substr.pl "some text for demonstrate substr() subroutine" 0 250
/home/local/code/perlcode/strings/substr.pl "some text for demonstrate substr() subroutine" 20 5
/home/local/code/perlcode/strings/substr.pl "some text for demonstrate substr() subroutine" 20 50
/home/local/code/perlcode/strings/substr.pl "some text for demonstrate substr() subroutine" -20 5
/home/local/code/perlcode/strings/substr.pl "some text for demonstrate substr() subroutine" -20 50

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

substr.pl: $partstr=substr(|some text for demonstrate substr() subroutine|, 0, 5): $partstr=|some |
substr.pl:
substr.pl: $contdata=|some text for demonstrate substr() subroutine|
substr.pl: $contdata=|some                                         |

substr.pl: $partstr=substr(|some text for demonstrate substr() subroutine|, 0, 250): $partstr=|some text for demonstrate substr() subroutine|
substr.pl:
substr.pl: $contdata=|some text for demonstrate substr() subroutine|
substr.pl: $contdata=|some text for demonstrate substr() subroutine|

substr.pl: $partstr=substr(|some text for demonstrate substr() subroutine|, 20, 5): $partstr=|trate|
substr.pl:
substr.pl: $contdata=|some text for demonstrate substr() subroutine|
substr.pl: $contdata=|                    trate                    |

substr.pl: $partstr=substr(|some text for demonstrate substr() subroutine|, 20, 50): $partstr=|trate substr() subroutine|
substr.pl:
substr.pl: $contdata=|some text for demonstrate substr() subroutine|
substr.pl: $contdata=|                    trate substr() subroutine|

substr.pl: $partstr=substr(|some text for demonstrate substr() subroutine|, -20, 5): $partstr=| subs|
substr.pl:
substr.pl: $contdata=|some text for demonstrate substr() subroutine|
substr.pl: $contdata=|                          subs               |

substr.pl: $partstr=substr(|some text for demonstrate substr() subroutine|, -20, 50): $partstr=| substr() subroutine|
substr.pl:
substr.pl: $contdata=|some text for demonstrate substr() subroutine|
substr.pl: $contdata=|                          substr() subroutine|

#top unpack¶

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

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

unpack TEMPLATE, STRING

Powiązane:
pack(), unpack(),

Opis:

Funkcja unpack()

Argumenty:
EXPR -
LIST -

Zwracana wartość:
LIST -

Zmodyfikowany ostatnio: 2015/02/01 13:56:17 (9 lat temu), textsize: 24,5 kB, htmlsize: 42,6 kB

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

Dodaj komentarzKomentarze użytkowników