Home Map Index Search News Archives Links About LF
[Top bar]
[Bottom bar]
[Photo of the Author]
�������ߣ�Guido Socher

�������ߣ�

Guido ��һ���ܡ��ϡ���Linux �ԡ��������ʼ���� LinuxFocus �ı༭����Щ����������æ�ڸ��췿�Ӳ��ڻ�԰����Щ����ʲô�ġ�

Ŀ¼��

Perl ���� I

[Illustration]

ժҪ��

������һϵ�й��� perl �����еĿ�ƪ�����߲���Ҫ�����κ�����ľ���Ϳ�������������ݡ���Ȼ��һЩ������ԣ��� C��Pascal�������֪ʶ��ʹѧϰ Perl ��ʼ������һЩ��


 

ʲô�� perl��

Perl ��һ���ű����ԡ�������� Larry Wall ��������Դ�������ֱ�ӽ����� perl �����������С������ perl ����ͨ������װ�� /usr/bin/perl �¡���Ȼ perl �ںܶ෽�濴����ȷʵ���󾭵�� unix ���� awk �� sed�����DZ��������� perl �Ѿ����˺ܴ�Ľ��������������������� perl ��������������̣�OOP��������û�ͼ�ν��棨GUI�������� perl �Ŀ�� CPAN �ϵĴ�������ĵ����û����Ժ����׵���չ perl �Ĺ��ܡ�����ּ��Ϊ��ҽ���һЩ�й� perl �Ļ���������Բ����漰������Ļ��⡣��Щ���⽫��������Ժ�������С�

Perl ��һ�ŷdz����õĽű����ԡ�������Щ���߱�̾��������˵��һ����ͨ�õĹ��ߡ�

 

һ���򵥵ij���

�������� my1stprg �����������������Ȼ�������� chmod 755 my1stprg ʹ�����С�����֮�󿴿�����������Щ���顣

#!/usr/bin/perl -w
print "What is your name?\n";
$name=<STDIN>;
#remove the new-line character:
chomp($name);
$len=length($name);
print "\nHello $name! Your name is $len characters long\n";

�뿴�����Դ���롣���еĵ�һ�в���ע���С��� unix �ű����������ɡ�#!����ͷ���кܵ��ͣ��������߲���ϵͳ�ö�����ı��ļ�����Щ����������֮����ֵ��� # ��ͷ����Ϊע���У���������У������ǻ����Կ������е���䶼�Էֺţ�;�����������������ַ�����Ԫ���ţ�$����Perl �ı����������ַ��������ͺ͸����͡����ݿ��Ը��������ĵĻ����Զ�ת����ǡ�������͡�$-���� ����Ϊ��ֵ�������� perl �л������飨�� @ �滻 $ ����ͷ���͸��ӵı����� % �滻 $ ����ͷ������Щ�������ͽ��ں��������м������ۡ�


����ڶ����е� print ���������׼����豸���һ���ı��ַ������˺���ͬ shell �ű��е� echo �������ơ�����ַ�����˫��������������ô���ڲ��ı������滻Ϊ��Ӧ��ֵ�����������еı����򲻻ᱻ�滻�������ڵ���˫����������������Ԫ���š�����˫�����������������ַ��ͱ���ʹ�÷�б�ܡ������и����ӣ�

#!/usr/bin/perl -w
$name="joe";
print "1 $name\n";
print '2 ', $name , "\n";
print '3 ', '$name',"\n";
print "4 \"$name\"\n";
print "5 \$name\n";
print "6 \"\$name\"\n";

�����н��Ϊ��

1 joe
2 joe
3 $name
4 "joe"
5 $name
6 "$name"

�����ǻ�ͷ������ʼ�Ǹ��򵥳��������� $name=<STDIN>; ��ʾ���ȴ��û�����ֱ���û����س���Ϊֹ������֮����� $name �������û�����İ������з����ڵ����ݡ�chomp($name);����ӱ��� $name �н�ɾ���˻��з������ length ������������ $name ���ݵ��ַ�����

���ҵ������ǵij������и�ȱ�ݡ���������ʾ�� your name ������㰴���Ʊ����Ż�ո�����ᷢ��ʲô����أ���Щ�ַ�Ҳ�����������ַ������С���β��ܸ������أ�������ҪһЩ���Һ��滻������ɾ�������صĿհ��ַ���Pero ���ı��ַ��������Ͼ��кܺõ����ܲ��ṩ���걸�IJ�����[ \t] ��ƥ��հ��ַ���ո�����Ʊ����ȵ�һ���������ʽ���� perl ��������д�� \s��������Ĺ��ڱ�׼����ʽ�������뿴�˴�����Perl �е��滻��������˱�׼����ʽ�﷨��$name=~ s/regexp/replacement/g;������� replacement �ַ�����ʲôҲ��д����ô����׼����ʽ����������ʱ�� ��Ӧ�� regexp ����ɾ�����������ǵij�������Ӧ����������

#!/usr/bin/perl -w
print "What is your name?\n";
$name=<STDIN>;
#remove the new-line character:
chomp($name);
print "\nHello $name!";
#remove spaces from the string:
$name=~s/\s//g;
$len=length($name);
print " Your name is $len characters long\n";

�ⲻ��һ��ʵ�õij�����Ϊ������û���κο�����䣨ѭ����������䣩�������������� perl �Ļ������˼�롣�ں����������н�����ָ��Ӹ��ӵij���

 

����ĵ�

��ϵ�����¿�������ѭ�򽥽���ѧϰ perl����Ȼ��Ҳ�������ھ�ȥ�������С�ο��ֲᣨperlref-5.004.1.tar.gz�������е� README �ļ�˵������θ�������ӡ��һ��С���ӡ�

��Ҳ�����á�man perl���͡�man perlfunc�����鿴����ʹ�õĺ���������������Щֻ����Ϊ�ο����ϡ���Ӧ�ø��ű��Ļ����Ķ�һ�������ڡ�Learning Perl����O'Reilly����������ϵͳ��ѧϰ perl��

���ķ��룺֣�¹�

Webpages maintained by the LinuxFocus Editor team
© Guido Socher
LinuxFocus 1999

1999-09-05, generated by lfparser version 0.7