代码Perl项目论坛

您好，我想执行的Perl模块和重定向将输出重定向操作符的变量/数组"GT"，而不是一个文件任何一个，请让我知道如何做到这一点，如果可能的话吗？三江源非常最好的问候。阿马尔
。Venkataramuc

如何写一个正则表达式，我想第一个字母必须是9字后0-9字。共有Maxmium话就是9个字。请帮我尽快解决。至于venkat-7:08（星期五）第五，2007年10月修改
sharpcloak

有没有人尝试在PHP中使用弹出式菜单或滑动菜单，最好在表驱动的格式菜单...
tanmoy panja

大家好，我写了一个在Firebird的存储过程，接收字段的名称（FIELD1）和条件COND1（子句的SELECT语句）作为参数和返回作为输出所需要的领域。下面是那些2线的语句。即str_sql="选择"，||:FIELD1||"从MY_TABLE'||:COND1;执行语句:str_sql到:outstring;该程序不返回任何值。任何机构可以帮助我吗？
vodevil

这里是与C锐利，SQLServer和jav脚本asp.net版本imgsrc=http://www.orcode.com/upimg/2011_11_28_10_16_13_1.gif省略不用的话-斯特伦克，威廉，小imgsrc=http://www.orcode.com/upimg/2011_11_28_10_16_13_2.gif
rapace

大家好，IMtanmoypanja做一个项目上的在线AdWords系统使用perl.nowIM面临着一个如何检查闪光灯的问题我上显示Flash广告发布者，必须支持clicktag.becausewebsites.exactly我的意思是说，如何检查是否有是任何clickTAG的使用perl。swf文件。plzzz帮助我尽快从这个。TanmoyPanja软件开发手机:-9434661484Intrasoft技术列兵。有限公司5，湖庙道加尔各答-29。
jcs2004

我编程软件，因为万维网:RobotRules的是无法适应我的需要。＃！/USR/BIN/perl的##################################{BR}＃抽穗D'Adresse酒店（S）##################################{BR}@EE=（"http://www.google.com/robots.txt"，"http://shunix.com/robots.txt"）$X（@EE）的{##################################{BR}＃AppelleDESFONCTIONS##################################{BR}@EE=（EE）的;@EE=取代（@EE）;打印"EE"＃疗养DErobotx.txt##################################{BR}＃RECHERCHEDES的robots.txt##################################{BR}子找到{ 使用LWP:简单;我@resultat;我的$URL（@_）{推@resultat，（URL）;}返回@resultat;}##################################{BR}＃解析器的robots.txt##################################{BR}子替换{的foreach我$T（@_）{$T=〜/用户代理:\*//IG$T=〜/允许.*//G$x=〜/\/机器人\TXT//IG;$T=S/不允许:/$X\/$1/ig;$T=〜/\/\//\//IG$T=S/HTTP:\//HTTP:\/\//IG;$T=〜/^\N*//IG;$T=S/\N$//IG返回$T，}}但我有一个问题{S1}，函数REPLACE（）{S2}不翻身，第一个结果。我测试的解决办法，但软件retun只有1结果{S3}子替换{我@resultat;我的$T（@_）{推@resultat，$T=S/用户代理:\*//IG$T=〜S/允许.*//G $x=〜/\/机器人\TXT//IG $T=S/不允许:/$X\/$1/ig$T=〜/\/\//\//IG $T=〜/HTTP:\//HTTP:\/\//IG$T=〜/^\N*//IG $T=S/\N$//IG}返回@resultat;}有一个解决方案？-------{BR}Vodevil
sarah_xue

，现在Oracle数据库已经更新到9I一些Perl和CGI脚本没有longuer工作。无法连接到Oracle错误ORA-3113迄今为止，它看起来像oraperl不兼容Oracle9i的
博伟达Dhondt

有人可以帮我在这，我创建了一个perl脚本，搜索一定的记录从一个MySQL数据库，上传我们的远程脚本Web服务器，调用脚本，我收到错误500。这是一个权限错误或脚本是越野车？500元/cgi-bin/bizsearch.pl==这是我收到的页面..任何帮助吗？感谢。
博伟达Dhondt

您好，我新的面向对象的Perl。我尝试开发一个Perl程序使用了一些自定义的模块。我把我的所有文件。时，在我的项目开发目录。下面是一个简单的例子:aaa.pl＃！/USR/BIN/perl的-W使用lib/my_project_package";使用TTT（）ttt.pm包TTT;使用开关;但是，当我运行aaa.pl的时候，我的错误消息:ttt.pm没有返回一个真值。/aaa.pl线4BEGIN失败-编译/aaa.pl线4。中止任何人都可以给我帮助解决这个问题呢？预先感谢。
FooOfTheBar

:所有我写了一些代码，将检查消息已被张贴在论坛上。它会检查data.txt文件中，每30分钟一趟，看看号码已更改。代码是基于imgsrc=http://www.orcode.com/upimg/2011_11_28_10_16_13_3.gif注意，此代码是一个非常快速的破解，所以预期的错误！这对我的作品虽然...//FCheck.cpp:定义应用程序的入口点。//＃＃＃＃的typedefBOOL（__stdcall*LPFN_INETAUTODIAL）（DWORD，HWND）;的typedefBOOL（__stdcall*LPFN_INETREADFILE）（LPVOID，LPVOID，DWORD，LPDWORD）;的typedefBOOL（__stdcall*LPFN_INETAUTOHANGUP）（DWORD）;的typedefBOOL（__stdcall*LPFN_INETCLOSEHANDLE）（LPVOID）;的typedefBOOL（__stdcall*LPFN_INETGETCONNSTATE）（LPDWORD，DWORD）;的typedefLPVOID（__stdcall*LPFN_INETOPEN）（LPCSTR，DWORD，LPCSTR，LPCSTR，DWORD）;的typedefLPVOID（__stdcall*LPFN_INETOPENURL）（LPVOID，LPCSTR，LPCSTR，DWORD，DWORD，DWORD）;HINSTANCEhWinInet;BOOLbDLLFailure;HINTERNEThInternetSession;HINTERNET投诉;szTempName的char[MAX_PATH];DWORDm_LastKnownAmount;//API的LPFN_INETGETCONNSTATEInet_GetConnectedState;LPFN_INETAUTODIALInet_AutoDial;LPFN_INETOPENInet_Open;LPFN_INETCLOSEHANDLEInet_CloseHandle;LPFN_INETOPENURLInet_OpenUrl;LPFN_INETREADFILEInet_ReadFile;LPFN_INETAUTOHANGUPInet_AutoHangup;INTRegReadDWord（HKEYHKEY，LPTSTR名称，DWORD*pval的）;DWORDRegReadDWord（LPCTSTR关键，LPCTSTR名称，DWORDdefaultVal，HKEYhParent=HKEY_LOCAL_MACHINE）;INTRegWriteDWord（HKEYHKEY，LPTSTR名称，DWORD值）;BOOLRegWriteDWord（LPCTSTRHKEY，LPCTSTR名称，DWORD值，HKEYhKeyParent=HKEY_LOCAL_MACHINE）;无效的ErrorHandler（CHAR*szMessage）{//显示一个消息框，提醒用户失败。:的MessageBox（NULL，szMessage，"检查论坛"，MB_OK|MB_ICONINFORMATION）;}BOOLConnectToWeb（CHAR*szAgent）{DWORDdwFlags中;//首先我们看到，如果用户已经连接...如果（！Inet_GetConnectedState（dwFlags中，0））{//提示用户连接到互联网。如果（！Inet_AutoDial（0，NULL））{的ErrorHandler（"此应用程序必须连接到互联网检查论坛.");{BR}返回false;}}//OK第一次连接到互联网。hInternetSession=Inet_Open（szAgent，INTERNET_OPEN_TYPE_PRECONFIG，NULL，NULL，0）;（hInternetSession==NULL）{的ErrorHandler（"无法连接到互联网。"）;返回false;}返回true;}BOOLDisconnectFromWeb（）{//关闭连接。Inet_CloseHandle（hInternetSession）;//从互联网上断开。Inet_AutoHangup（0）;返回true;}BOOLRetrieveFileFromWeb（CHAR*szUrl，CHAR*szFileName）{DWORDdwBytesRead，dwBytesWritten;字符szFileBuffer[4096];拉手hTempFile;字符*szBuffer;//从文件名的完整URL和URL。szBuffer=新的char[strlen的（szUrl）strlen的（szFileName）2]（szBuffer==NULL）{的ErrorHandler（"无法分配内存缓冲！"）;返回false;}//ConcatinateURL和文件名的sprintf（szBuffer，"％S/％"，szUrl，szFileName）;//打开网址。投诉=Inet_OpenUrl（hInternetSession，szBuffer，NULL，INTERNET_FLAG_NO_CACHE_WRITE，0，0）;如果（投诉==NULL）{的ErrorHandler（"无法连接到论坛网址.");{BR}删除[]szBuffer;返回false;}//创建一个临时文件。字符*PBUF=新的char[MAX_PATH];GetTempPath（MAX_PATH，PBUF）GetTempFileName（PBUF，"WU_"，0，szTempName）删除[]PBUF;hTempFile的CreateFile（（LPTSTR）szTempName，GENERIC_READ|GENERIC_WRITE，0，NULL，则CREATE_ALWAYS，FILE_ATTRIBUTE_NORMAL，NULL）;//检查文件是否已成功创建。如果（hTempFile==INVALID_HANDLE_VALUE）{的ErrorHandler（"不能创建一个临时论坛检查文件.");{BR}删除[]szBuffer;返回false;}//TODO:在显示进度栏！{//继续阅读，直到我们有整个文件。Inet_ReadFile（投掷，（LPSTR）szFileBuffer，（DWORD）1024，dwBytesRead）//如果我们检索的一些数据-它写入到输出文件。（dwBytesRead0）WriteFile的（hTempFile，（PVOID）szFileBuffer，dwBytesRead，dwBytesWritten，NULL）;（dwBytesRead0）}，而//关闭文件的处理CloseHandle（hTempFile）;//关闭处理的URLInet_CloseHandle（投诉）;返回true;}BOOLParseVersionFile（CHAR*szVersionFile）{的DWORDdwBytesRead的dwSize;INTnCounter=0;字符*szBuffer;拉手hVersionFile;//打开文件进行读取hVersionFile=的CreateFile（szVersionFile，GENERIC_READ，FILE_SHARE_READ，NULL，OPEN_EXISTING，FILE_ATTRIBUTE_NORMAL，NULL）;如果（hVersionFile==INVALID_HANDLE_VALUE）{的ErrorHandler（"无法打开下载的版本文件。"）;返回false;}//尝试获得的版本文件的大小。的dwSize=GetFileSize（hVersionFile，NULL）;//文件读入缓冲区szBuffer=新的char[]的dwSize（szBuffer==NULL）{的ErrorHandler（"不能分配内存缓冲区.");{BR}返回false;}memset的（szBuffer，0，的dwSize）;//其实从文件中读取。（ReadFile的（hVersionFile，szBuffer的dwSize，dwBytesRead，NULL））{的ErrorHandler（"无法读取下载的版本文件。"）;返回false;}//关闭文件的处理CloseHandle（hVersionFile）;//解析文件如果（"亚（szBuffer）！=m_LastKnownAmount）{//一个新的消息！m_LastKnownAmount="亚（szBuffer）味精的char[MAX_PATH];memset的（味精，0，MAX_PATH）的sprintf（（char*）的味精，"新邮件的总消息:％D"，m_LastKnownAmount）;的ErrorHandler（味精）;HKEYHKEY;REG_OPENED_EXISTING_KEYDWORDDISP=（RegCreateKeyEx（HKEY_LOCAL_MACHINE，"SOFTWARE\\YOURKEY\\FCheck"，0，""，REG_OPTION_NON_VOLATILE，KEY_ALL_ACCESS，NULL，HKEY，DISP）=ERROR_SUCCESS）{返回FALSE;}:RegWriteDWord（HKEY"论坛检查"，m_LastKnownAmount）}//清理所有的内存分配。删除[]szBuffer;返回true;}INTAPIENTRY的WinMain（HINSTANCE的hInstance， HINSTANCEhPrevInstance， LPSTRlpCmdLine， INTnCmdShow）{//TODO:在此放置代码。HKEYHKEY;RegOpenKey（HKEY_LOCAL_MACHINE"的软件\\YOURKEY\\FCheck"HKEY）（RegReadDWord（HKEY论坛"检查"，m_LastKnownAmount）=0时，条目是只读**/INTRegReadDWord（HKEYHKEY，LPTSTR名称，DWORD*pval的）{ DWORDVAR=0;DWORD类型=REG_DWORD;SIZEOFDWORD大小=（DWORD），//查询的值，检查它是否存在，确实是一个DWORDretv=RegQueryValueEx（HKEY，名称，NULL，类型，（BYTE*）VAR，大小）;（retv==ERROR_SUCCESS类型==REG_DWORD）{*pval的=VAR;返回0;} 返回-1;}/***************************************************************************{BR}*RegReadDWord（）**说明:从注册表中读取的值**返回值:值如果成功，则默认值，否则******参数:*-关键:阅读（如软件\\dZine\\SomeKey）键-名称:值的名称改为*-defaultVal:要返回的值，如果读取失败*-hKeyParent:关键要开始*（默认值:HKEY_LOCAL_MACHINE）**/DWORDRegReadDWord（LPCTSTR关键，LPCTSTR名称，DWORDdefaultVal，HKEYhKeyParent）{HKEYHKEY=NULL;的DWORD结果=defaultVal;（RegOpenKeyEx的（hKeyParent，（LPCTSTR）键，0，KEY_QUERY_VALUE，HKEY）==ERROR_SUCCESS）{DWORD类型=REG_SZ;SIZEOFDWORD大小=（DWORD），DWORDvalueRead;//查询的值，检查它是否存在，确实是一个DWORD（RegQueryValueEx（HKEY，名称，NULL，类型，（BYTE*）valueRead，大小）==ERROR_SUCCESS）{结果=valueRead}RegCloseKey（HKEY）;}返回结果;}/***************************************************************************{BR}*RegWriteDWord（）**函数写入到注册表的DWORD项**HKEY:关键查询处理*名称:值的名称地址写*VAL:值写******返回:-1失败写的条目（无效的关键，没有权利???){BR}*=0时，该条目被写入**/INTRegWriteDWord（HKEYHKEY，LPTSTR名称，DWORDVAL）{（RegSetValueEx（HKEY，名称，0，REG_DWORD， （BYTE*）值，SIZEOF（DWORD））！=ERROR_SUCCESS）返回-1; 返回0;}/***************************************************************************{BR}*RegWriteDWord（）*说明:写入到注册表的DWORD值**返回值:TRUE==成功，FALSE==错误******参数:*-关键:关键（如软件\\dZine\\SomeKey）名称-名称:注册表值的名称*-值:要写入的值*-hKeyParent:关键要开始*（默认值:HKEY_LOCAL_MACHINE）*布尔RegWriteDWord（LPCTSTR关键，LPCTSTR名称，DWORD值，HKEYhKeyParent）{HKEYHKEY;DWORD处置;（RegCreateKeyEx（hKeyParent，键，0，""，REG_OPTION_NON_VOLATILE，KEY_SET_VALUE，NULL，HKEY，处置）！=ERROR_SUCCESS）{ 返回FALSE;}（RegSetValueEx（HKEY，名称，0，REG_DWORD，（CONSTBYTE*）值，SIZEOF（DWORD））！=ERROR_SUCCESS）{RegCloseKey（HKEY）;返回FALSE;}RegCloseKey（HKEY）;返回TRUE;}-----------------------{BR}新的和改进:{A4}我的第二个CP的文章:{A5}（:！鲍勃。IsDrunk（））鲍勃:饮料（啤酒）;}
大理|我爱你的工作！这篇文章中，我有我的留言板我的网站上运行，而无需使用任何数据库。
这是我的加分，因为我需要升级我的主机，如果我想要一个MySQL数据库或东西。
我有一个问题。当使用与Opera论坛，没有消息显示，当点击它们。你有什么想法，这可能是什么吗？在IE中虽然没有问题。在任何其他浏览器没有测试...


-----------------------{ BR}新的和改进:{A4}
我的第二个CP的文章:{A5}

（:！鲍勃。IsDrunk（））
{
鲍勃:饮料（啤酒）;
}

。您好，NBSP

我有一个很奇特的问题

我使用Cygwin Perl版本5.6.1 WIN2K system.nbsp ; 我想FTP的Windows的ASCII /文本文件，以unix.nbsp; 我在已使用Net ftp'​​d文件的每一行结束的Windows行结尾:FTP module.nbsp; 这些CR / LF.nbsp;

我不希望它们出现在已到unix.nbsp ftp'​​d的文件; 我想删除them.nbsp; 我知道那里有一些工具，以消除me.nbsp这 ，但我想使用作为最后resort.nbsp; 我接近这个论坛，以获得对this.nbsp任何输入 NBSP

如果任何人都可能会引发一些光，我怎么能转换与Windows行结束前fpt'ing跨unix.nbsp到Windows与Unix行结尾的文件的Windows文件; 或删除Windows行结尾在general.nbsp; 我知道 另一个使用"TR"的方式。NBSP，但我不想使用此either.nbsp; 由于这个文件是文件的基础 我想知道是否有任何环境变量或任何其他的出路，我到我的perl脚本的最小变化和实现objective.nbsp; 因为我说这是我的perl脚本100 ftp'​​d（ASCII）等文件的，我有添加TR提前逐一一堆文件，因为它doesnt工作或使用通配符字符

任何进一步的信息，请不要犹豫发表您的回应NBSP


NBSP您的时间提前感谢;
K

好，我没有做任何事情。自动，但你可以改变的perl脚本文件，通过这些脚本:


DOS - > UNIX（remover.pl）:

$ INFILE = $ ARGV [0];
$ OUTFILE = $ ARGV [1];
打开（IN"$ OUTFILE"）或死亡（"无法打开文件.");{ BR}
binmode中，"CRLF";binmod输出。 "原料";
（（$行=））{
  ;
打印出$线;}
关闭;
关闭;
你可以有一个文件名数组perl的负载，并通过他们^脚本。

如果您需要回去...:{ BR}UNIX - > DOS:

$ INF = $抗逆转录病毒[0]
$ OUTF = $ ARGV [1];
打开（"$ OUTF"）或死亡（"无法打开文件"）; binmod;（（$行=））{
$ =〜/ \ N / \ R \ N / G
&# 160;
打印出$线;} 关闭;
关闭;
有Perl运行的脚本类似（一个单独的Perl脚本）
@文件=＃负载的东西在这里并在@文件foreach循环，把$ ARGV [0]（或别的东西）
与相同的名称$ ARGV [1]。
我真的希望这有助于！


嘿，比尔！BR}它编译！让船舶

我总是行我forum.pl文件
176故障这是故障:

没有这样的文件或目录forum.pl线176。

我不知道如何解决它。

请帮助我

大卫Liebens

1234