華閱文章網perl中一個foreach語句的編寫
你可以說說以下兩件事嗎 ？
1. @$beads 和 @$balls 的結構是怎樣的？
2. $beadname 和 $ballname 是怎樣來的？ 比說是一個 sub 的參數， 或是數組中的某個元素？
光從文字的意思來看， 你想做到的基本上就像以下了
my $bead = [0,0,0];
my $ball = [5,5,5];
my ( $beadname, $ballname ) = ( "ABC", "ABC" ) ;
@$bead = @$ball if ( $beadname eq $ballname ) ;
print "@$bead";
perl腳本語言提問：
perl腳本的內容僅包括如下這部分： #！/usr/bin/perl# write by huabo, 2009-11-20use warnings;use strict;#open the svn passwd fileopen (FILE, "passwd") or die ("Cannot open the passwd file!!!n");#clear the apache passwd fileopen (OUT_FILE, ">webpasswd") or die ("Cannot open the webpasswd file!!!n");close (OUT_FILE);#beginforeach (
Adding password for user pmAdding password for user server_groupAdding password for user client_groupAdding password for user test_group上面這部分是執行之后的輸出結果。 這個腳本的目的是將SVN的賬戶信息同步到apache里去。
關于perl腳本中foreach語句的一個問題
#!/usr/bin/perl -w
use strict;
use 5.014;
open TT,'>gname'
or die "error:$!";
foreach ()
{
print TT;
}
close TT;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>>> perl * *
怎樣讓perl腳本中執行sql語句
首先得確保安裝了數據庫接口模塊和相應數據庫的驅動模塊，如果是用MySql數據庫（開源免費新手入門學習都喜歡），則需要確定DBI和DBD::mysql這兩個模塊是否安裝；
然后在perl腳本中寫：
!#usr/bin/perl -w
use strict;
use DBI； #使用DBI模塊，DBD::mysql是驅動不必在腳本中使用，安裝了就行
my $dbname = ""； #引號里填上數據庫名
my $ip = ""； #引號里填上要訪問的數據庫的ip地址，數據庫是本機就寫127.0.0.1
my $port = ""； #引號里填上要訪問的數據庫的端口號，mysql默認端口號是3306
my $host = "dbi:mysql:" . $dbname . ":" . $ip . ":" . $port ;
my $user = "root"； #訪問數據庫使用的用戶名
my $password = "xXxX"； #該用戶名所使用的密碼
my $dbh = DBI -> connect($host,$user,$password) or die "$@"； #與數據庫建立連接
$dbh -> do("set names \'gbk\'；")； #設置輸出中文不亂碼
while(1) #條件永遠為真，除非人為終止，否則不會停止
{ #可以使用control+c停止腳本執行
my $sql = ""； #引號里填上sql語句
$sth = $dbh -> prepare($sql)； #送入數據庫做準備
$sth -> execute（)； #執行這條sql語句
sleep(300)； #設置300秒暫停執行，300秒后繼續執行while
}
$dbh -> disconnect（)； #斷開與數據庫的連接
這里使用的是最新的perl和最新的mysql最新，不是復制粘貼別人代碼，前幾天還在用，保證思路沒有問題。
perl是腳本語言還是什么語言
Perl簡介
Perl最初只是Unix系統管理員的一個工具，在工作日里被用在無數的小任務中。從那以后，它逐步發展成為一種全功能的程序設計語言，特別是在各種計算平臺上，它被用作Web編程、數據庫處理、XML處理以及系統管理——它能夠完成所有這些工作，同時仍然是處理小的日常工作的完美工具，這是它的設計初衷。Perl快速、有趣，而且特別有用。很多人因為需要Perl而使用它，又因為熱愛它而繼續使用它。_摘自Perl語言入門Oreilly_*Perl是一門自由且功能強大的編程語言。自1987年初次登臺亮相以來，它的用戶數一直急劇膨脹。從最初被當作一種在跨平臺環境中書寫可移植工具的高級語言開始，Perl就已經被廣泛地認為是一種工業級的強大工具，可以在任何地方用來完成你的工作。Perl特別適合系統管理和Web編程。Perl實際上已經被所有Unix（包括Linux）捆綁在一起作為標準部件發布，而且也被廣泛用于MicrosoftWindows和幾乎所有其他操作系統。Amiga、BeOS、VMS、MVS和AppleMacintosh等也只是Perl已經完成移植的平臺的一小部分。_摘自Perl語言編程Oreilly_
Perl可以做什么
Perl能做的事太多了！你應該問Perl不能做什么。：）使用Perl可以輕松完成下列任務：*處理文本數據.*網絡編程*數據庫處理*XML處理*系統維護*圖像處理*。.
很多人使用Perl來替代shell，很多人使用Perl來避免編寫繁瑣的C,C 或Java程序.如果你的程序要求高效率，你可以把費時部分用C寫，然后與Perl結合使用.
你幾乎可以使用Perl來解決所有問題.使用Perl與否完全是你的決定：）
perl 中$；：：的含義及用法
While the :: symbol can be thought of as similar to the period in a C struct, it is much more akin to the :: class scope operator in C++: a.b.c; /* something in C */ a::b::c(); // function in C++ $a::b::c; # a scalar in Perl 5 @a::b::c; # a list in Perl 5 %a::b::c; # an associative array or "hash" in Perl 5 &a::b::c; # a function in Perl 5
“：：”符號可以認為是與C語言中的“.”相似，而它更像C++中的：：類范圍操作符。
$m = 5;
sub me
{
}
$main::m
&main::me
