HELP US, HELP YOU!

Bot Depot Forum Index -> Perl

Author	Message
draget Not Yet a God Joined: 29 Dec 2004 Posts: 367 Location: Australia	Posted: Wed Mar 23, 2005 9:35 am    Post subject: This code is from Cers CKS-AIM bot. Code: #require stuff:<br /><br /><br />print ":: Loading Sub-files...\n\n\n";<br />my @folders = (<br /> './FILES/ext_subs/aimhandlers',  <br />);<br />foreach $item (@folders) {<br />   opendir (DIR, $item);<br />   foreach $file (sort(grep(!/^\./, readdir(DIR)))) {<br />  <br />  require "$item/$file";<br />   }<br />   closedir (DIR);<br />}<br /><br /> when i add another element to the @folders array like this Code: <br />my @folders = (<br /> './FILES/ext_subs/aimhandlers',   './FILES/ext_subs',  <br />);<br /> It doesn't work. Error: Quote: MSN 2.0 (01/21/2005) Rev: 84  - Checksum: 60117-NS36016-SB26593 :: Loading Sub-files... Can't locate ./FILES/ext_subs/aimhandlers in @INC (@INC contains: ./Lib C:/Perl/ lib C:/Perl/site/lib .) at bot.pl line 38. Any ideas?
Back to top
Cer Upgraded Agent Joined: 03 Feb 2004 Posts: 3776 Location: Michigan votes: 4	Posted: Wed Mar 23, 2005 12:39 pm    Post subject: It's because your ./FILES/ext_subs doesn't contain only PL files; it also contains the folder "aimhandlers" - so when it gets to "aimhandlers" it tries requiring it, and it's not valid Perl code--it's not valid ANY code--it's a folder. You'll have to do a check for the PL extension for each $file like this: Code: next unless $file =~ /\.pl$/i; That will make it go to the next file unless it ends with ".pl" (you should do that check first thing in the foreach loop, before it tries requiring it). _________________ Current Site (2008) http://www.cuvou.com/
Back to top
Display posts from previous: All Posts1 Day7 Days2 Weeks1 Month3 Months6 Months1 Year Oldest FirstNewest First

	Bot Depot Forum Index -> Perl	All times are GMT
Page 1 of 1