Форум АНТИЧАТ - запуск приложений через php, требующих ввод данных

PHP код:


		
			
system

Или вот что я нашел:

Код HTML:

Article 9818 of comp.lang.perl:

Xref: feenix.metronet.com comp.lang.perl:9818 alt.sources:2646

Path: feenix.metronet.com!internet.spss.com!insosf1.infonet.net!news-feed-1.peachnet.edu!news-feed-2.peachnet.edu!emory!europa.eng.gtefsd.com!howland.reston.ans.net!news.intercon.com!udel!gramps.itd.com!ma.itd.com!jblaine

From: jblaine@ma.itd.com (Jeff Blaine)

Newsgroups: comp.lang.perl,alt.sources

Subject: iarchie: An interactive backend to archie, frontend to NcFTP

Date: 16 Jan 1994 07:24:28 GMT

Organization: Space Remote Sensing Center

Lines: 104

Distribution: world

Message-ID: <2haq3c$jnm@gramps.itd.com>

NNTP-Posting-Host: ma.itd.com



This is a backend to archie (slash) frontend to NcFTP.

You must have archie and NcFTP to make use of this script (as well as perl).

Let me know what you think.



#!/usr/local/bin/perl

#

# Interactive Archie for terminals.

# Jeff Blaine, 1994, jblaine@ma.itd.com

#

# READ THIS:

# This is NOT an archie implementation.  You must have archie

# installed as well as NcFTP to use this perl code to interactively

# (ahem) search for and retrieve files.

#

# You can get NcFTP from cse.unl.edu:/pub/mgleason/ncftp

# You can get archie from nic.sura.net:/pub/archie/clients

#

# iarchie should be called exactly like your copy of archie (same

# args you always use).  Example usage:

#

# prompt% iarchie -h archie.ans.net filename.tar.Z

#

# Please see the end of this Perl script for more commented information.

#

# INSTALLER: Define NCFTP to point to your copy of NcFTP.  That's all.

$NCFTP = '/usr/code/sun/bin/ncftp';



$VERSION = '1.0';



$ia_tmp = "iarchie.tmp";

$0 = iarchie;

$| = 1;                                        # Flush stdout on all writes.



if ($ARGV[0] eq "") {

        &usage;

        exit (1);

}

print "Connecting to archie server and retrieving information...\n";

print "";

unlink ("$ia_tmp");                             # Remove any old temp file.

system ("archie -l @ARGV > $ia_tmp");           # Call archie.

&parse_archie;                                  # Parse output from archie.

&print15;                                        # Menu and select.

unlink ("$ia_tmp");                             # Remove temp file.



sub usage {

        print "Usage:\n";

        print "   $0 uses all of the same options as the c-archie package.\n";

        print "   Type 'man archie' to see those options.\n";

}



sub parse_archie {

        open (INFILE, "$ia_tmp") || die "Couldn't open $ia_tmp\n";

        while (<INFILE>) {

                if ($_ ne '\n') {

                        @curr = split;

                        $ncftp_line = $curr[2] . ":" . $curr[3];

                        $ncftp_line = "$ncftp_line\n";

                        push (@ncftp_lines, $ncftp_line);

                }

        }

        close (INFILE);

        print "\n";

}



sub print15 {

        $num = 0;

        while ($num != 15) {

                print "$num ) ", $ncftp_lines[$num];

                $num++;

        }

        print "\n";

        print "Enter a number or 'q' to quit: ";

        $ch = getc;

        if ($ch eq "q") {

                exit (0);

        } elsif ($ch =~ /[0-15]/) {

                print "FTPing Number $ch : ", $ncftp_lines[$ch];

                print "Please wait.";

                chop ($ncftp_lines[$ch]);

                system ("$NCFTP $ncftp_lines[$ch]");

        } else {

                &print15;

        }

}



# TODO:  Make iarchie check args sent to it to match those valid ones

#        allowed by the archie program.

#

#        Allow for more than 15 shown matches (add a 'n' for next page

#        command)

#

#        Write a man page.

#

# This code is by no means to be depended on.  It seems to work well

# for me, and I feel that others will benefit from it, so I am posting

# it for others to use who have Perl, archie, and NcFTP installed.

#

# If you want to hack the hell out of it, be my guest.  If you release

# a modified version of this iarchie perl script, please be kind and

# mention my name, Jeff Blaine somewhere. 

-- 

        J e f f  B l a i n e               jblaine@ma.itd.com

Perl code: checksummed line-noise with a mission in life.    -- R.L. Schwartz