- Visual C++源码
- Visual Basic源码
- C++ Builder源码
- Java源码
- Delphi源码
- C/C++源码
- PHP源码
- Perl源码
- Python源码
- Asm源码
- Pascal源码
- Borland C++源码
- Others源码
- SQL源码
- VBScript源码
- JavaScript源码
- ASP/ASPX源码
- C#源码
- Flash/ActionScript源码
- matlab源码
- PowerBuilder源码
- LabView源码
- Flex源码
- MathCAD源码
- VBA源码
- IDL源码
- Lisp/Scheme源码
- VHDL源码
- Objective-C源码
- Fortran源码
- tcl/tk源码
- QT源码
- #!/store/bin/perl
- # simple mqueue done with find2perl
- $hostname = "apollo";
- require "find.pl";
- # Traverse desired filesystems
- $counter = 0;
- &find('/var/spool/mqueue/');
- sub wanted {
- /^qf.*$/ &&
- $counter++;
- }
- chomp $counter;
- print "0n$countern1n$hostnamen";