Date: Thu, 14 Jun 2001 21:30:08 -0400 (EDT) From: Joe Clarke <marcus@marcuscom.com> To: Chris Aitken <chris@ideal.net.au> Cc: <freebsd-questions@FreeBSD.ORG> Subject: Re: Perl Script Suggestions Message-ID: <20010614211332.I5507-200000@shumai.marcuscom.com> In-Reply-To: <5.1.0.14.2.20010615101342.0212ee28@mail.ideal.net.au>
next in thread | previous in thread | raw e-mail | index | archive | help
This message is in MIME format. The first part should be readable text, while the remaining parts are likely unreadable without MIME-aware tools. Send mail to mime@docserver.cac.washington.edu for more info. --0-332206728-992568608=:5507 Content-Type: TEXT/PLAIN; charset=US-ASCII Well, Cntrl+Z is the octal sequence \032. You could try: print CMD "abcdef\032"; I know that Cisco IOS uses control+Z to escape from config mode. If you're talking to a Cisco router through the console port, and easier way to accomplish an exit from config mode would be to use "end\n". Anyway, here is a Perl script I wrote that uses Expect.pm to spawn telnet. You could adapt this to spawn cu. Note, this script is a bit of a hack, but it does work. Joe Clarke On Fri, 15 Jun 2001, Chris Aitken wrote: > Hi everyone..... > > Ive been doing some research into my little script delemma and im wondering > if anyone has any suggestions. Basically, what I need is a nice simple perl > script I can execute like the following - > > % newscript abcdefg > > and basically making it take the first argument after the script, and spawn > off the following lines to execute the cu program - > > % cu -l /dev/cuaa1 -s 38400 > > abcdefg <ctrl z> > > > Im a novice at this stuff, but if I could see some sort of examples on how > to do this, I can work the rest out. In the first part of the proposed perl > script, it will access an sql database, get the needed data etc etc. I know > how to do the sql stuff, but the actual accessing cu and issuing it the > commands, the data and the CTRL Z command is baffling me. > > > Thanks > > > Chris > > > > -- > Chris Aitken - Webmaster/Database Designer - IDEAL Internet > email: chris@ideal.net.au phone: +61 2 4628 8888 fax: +61 2 4628 8890 > -------------------------------------------- > > If the foo shits, call your sysadmin > > > To Unsubscribe: send mail to majordomo@FreeBSD.org > with "unsubscribe freebsd-questions" in the body of the message > > --0-332206728-992568608=:5507 Content-Type: TEXT/PLAIN; charset=US-ASCII; name="get_modules.pl" Content-Transfer-Encoding: BASE64 Content-ID: <20010614213008.K5507@shumai.marcuscom.com> Content-Description: Content-Disposition: attachment; filename="get_modules.pl" IyEvdXNyL2Jpbi9wZXJsDQojDQojIENvcHlyaWdodCAyMDAxIEpvZSBDbGFy a2UgPGpjbGFya2VAY2lzY28uY29tPg0KIw0KIyBBbGwgcmlnaHRzIHJlc2Vy dmVkLg0KIw0KIyBSZWRpc3RyaWJ1dGlvbiBhbmQgdXNlIGluIHNvdXJjZSBh bmQgYmluYXJ5IGZvcm1zLCB3aXRoIG9yIHdpdGhvdXQNCiMgbW9kaWZpY2F0 aW9uLCBhcmUgcGVybWl0dGVkIHByb3ZpZGVkIHRoYXQgdGhlIGZvbGxvd2lu ZyBjb25kaXRpb25zDQojIGFyZSBtZXQ6DQojIDEuIFJlZGlzdHJpYnV0aW9u cyBvZiBzb3VyY2UgY29kZSBtdXN0IHJldGFpbiB0aGUgYWJvdmUgY29weXJp Z2h0DQojICAgIG5vdGljZSwgdGhpcyBsaXN0IG9mIGNvbmRpdGlvbnMgYW5k IHRoZSBmb2xsb3dpbmcgZGlzY2xhaW1lci4NCiMgMi4gUmVkaXN0cmlidXRp b25zIGluIGJpbmFyeSBmb3JtIG11c3QgcmVwcm9kdWNlIHRoZSBhYm92ZSBj b3B5cmlnaHQNCiMgICAgbm90aWNlLCB0aGlzIGxpc3Qgb2YgY29uZGl0aW9u cyBhbmQgdGhlIGZvbGxvd2luZyBkaXNjbGFpbWVyIGluIHRoZQ0KIyAgICBk b2N1bWVudGF0aW9uIGFuZC9vciBvdGhlciBtYXRlcmlhbHMgcHJvdmlkZWQg d2l0aCB0aGUgZGlzdHJpYnV0aW9uLg0KIw0KIyBUSElTIFNPRlRXQVJFIElT IFBST1ZJREVEIEJZIFRIRSBERVZFTE9QRVJTIGBgQVMgSVMnJyBBTkQgQU5Z IEVYUFJFU1MgT1INCiMgSU1QTElFRCBXQVJSQU5USUVTLCBJTkNMVURJTkcs IEJVVCBOT1QgTElNSVRFRCBUTywgVEhFIElNUExJRUQgV0FSUkFOVElFUw0K IyBPRiBNRVJDSEFOVEFCSUxJVFkgQU5EIEZJVE5FU1MgRk9SIEEgUEFSVElD VUxBUiBQVVJQT1NFIEFSRSBESVNDTEFJTUVELg0KIyBJTiBOTyBFVkVOVCBT SEFMTCBUSEUgREVWRUxPUEVSUyBCRSBMSUFCTEUgRk9SIEFOWSBESVJFQ1Qs IElORElSRUNULA0KIyBJTkNJREVOVEFMLCBTUEVDSUFMLCBFWEVNUExBUlks IE9SIENPTlNFUVVFTlRJQUwgREFNQUdFUyAoSU5DTFVESU5HLCBCVVQNCiMg Tk9UIExJTUlURUQgVE8sIFBST0NVUkVNRU5UIE9GIFNVQlNUSVRVVEUgR09P RFMgT1IgU0VSVklDRVM7IExPU1MgT0YgVVNFLA0KIyBEQVRBLCBPUiBQUk9G SVRTOyBPUiBCVVNJTkVTUyBJTlRFUlJVUFRJT04pIEhPV0VWRVIgQ0FVU0VE IEFORCBPTiBBTlkNCiMgVEhFT1JZIE9GIExJQUJJTElUWSwgV0hFVEhFUiBJ TiBDT05UUkFDVCwgU1RSSUNUIExJQUJJTElUWSwgT1IgVE9SVA0KIyAoSU5D TFVESU5HIE5FR0xJR0VOQ0UgT1IgT1RIRVJXSVNFKSBBUklTSU5HIElOIEFO WSBXQVkgT1VUIE9GIFRIRSBVU0UgT0YNCiMgVEhJUyBTT0ZUV0FSRSwgRVZF TiBJRiBBRFZJU0VEIE9GIFRIRSBQT1NTSUJJTElUWSBPRiBTVUNIIERBTUFH RS4NCiMNCiMgZ2V0X21vZHVsZXMucGwNCiMgQSB0b29sIHRvIGdyYWIgbW9k dWxlIGluZm8gZnJvbSBDaXNjbyBkZXZpY2VzIHZpYSBhIGNvbW0gc2VydmVy DQojDQoNCnVzZSBzdHJpY3Q7DQp1c2UgRXhwZWN0Ow0KdXNlIHZhcnMgcXco JFNIT1dfRElBRyAkU0hPV19NT0QpOw0KDQp1c2UgY29uc3RhbnQgTUFYX1JF VFJJRVMgPT4gMzsNCnVzZSBjb25zdGFudCBNQVhfVElNRU9VVCA9PiAxMDsN Cg0KJFNIT1dfRElBRyA9ICJzaG93IGRpYWdcciI7DQokU0hPV19NT0QgID0g InNob3cgbW9kXHIiOw0KDQpzdWIgZ2V0X21vZHVsZXMgew0KICAgICAgICBt eSAoICRuYW1lLCAkaG9zdCwgJHBvcnQsICRwdyApID0gQF87DQogICAgICAg IG15ICgkdHlwZSk7DQoNCiAgICAgICAgJEV4cGVjdDo6TG9nX1N0ZG91dCA9 IDA7DQoNCiAgICAgICAgbXkgJHQgPSBFeHBlY3QtPnNwYXduKCAiL3Vzci9i aW4vdGVsbmV0IiwgJGhvc3QsICRwb3J0ICk7DQoNCiAgICAgICAgcmV0dXJu IGlmICFkZWZpbmVkKCR0KTsNCiAgICAgICAgJHQtPm1hdGNoX21heCgxMDAw MDAwMDApOw0KDQogICAgICAgICR0LT5leHBlY3QoIE1BWF9USU1FT1VULCAn LXJlJywgJ15Fc2NhcGUgY2hhci4qXC5ccj8kJyApOw0KDQogICAgICAgICR0 LT5jbGVhcl9hY2N1bSgpOw0KDQogICAgICAgICR0LT5zZW5kX3Nsb3coIDAs ICJcciIsICJlbmRcciIsICJleGl0XHIiLCAiXHIiICk7DQoNCiAgICAgICAg JHQtPmNsZWFyX2FjY3VtKCk7DQoNCiAgICAgICAgc2xlZXAgMTsNCg0KICAg ICAgICAkdC0+ZXhwZWN0KCBNQVhfVElNRU9VVCwgJy1yZScsICcoRW50ZXIg KT9bUHBdYXNzd29yZDouKiR8XFMrPi4qJCcgKQ0KICAgICAgICAgIG9yIHJl dHVybjsNCg0KICAgICAgICBteSAkcHdwcm9tcHQgPSAkdC0+ZXhwX21hdGNo KCk7DQoNCiAgICAgICAgJHQtPmNsZWFyX2FjY3VtKCk7DQoNCiAgICAgICAg aWYgKCAkcHdwcm9tcHQgPX4gL15FbnRlciBwYXNzd29yZC8gKSB7DQogICAg ICAgICAgICAgICAgJHR5cGUgPSAnQ2F0T1MnOw0KICAgICAgICAgICAgICAg ICR0LT5zZW5kX3Nsb3coIDAsICRwdyAuICJcciIgKTsNCiAgICAgICAgfQ0K ICAgICAgICBlbHNpZiAoICRwd3Byb21wdCA9fiAvXlBhc3N3b3JkLyApIHsN CiAgICAgICAgICAgICAgICAkdHlwZSA9ICdJT1MnOw0KICAgICAgICAgICAg ICAgICR0LT5zZW5kX3Nsb3coIDAsICRwdyAuICJcciIgKTsNCiAgICAgICAg fQ0KICAgICAgICBlbHNlIHsNCiAgICAgICAgICAgICAgICAkdHlwZSA9ICdJ T1MnOw0KICAgICAgICAgICAgICAgICR0LT5zZW5kX3Nsb3coIDAsICJcciIg KTsNCiAgICAgICAgfQ0KICAgICAgICAkdC0+Y2xlYXJfYWNjdW0oKTsNCg0K ICAgICAgICB3YWl0cHJvbXB0KCAkdHlwZSwgJHQgKTsNCg0KICAgICAgICBt eSAkcHJvbXB0ID0gJHQtPmV4cF9tYXRjaCgpOw0KDQogICAgICAgICNwcmlu dCAicHJvbXB0ID0gJHByb21wdFxuIjsNCiAgICAgICAgc2xlZXAgMTsNCiAg ICAgICAgJHQtPmNsZWFyX2FjY3VtKCk7DQogICAgICAgIGlmICggJHR5cGUg ZXEgIkNhdE9TIiApIHsNCiAgICAgICAgICAgICAgICAkdC0+c2VuZF9zbG93 KCAwLCAic2V0IGxlbmd0aCAwXHIiICk7DQogICAgICAgICAgICAgICAgJHQt PmV4cGVjdCggTUFYX1RJTUVPVVQsICRwcm9tcHQgKTsNCiAgICAgICAgICAg ICAgICAkdC0+Y2xlYXJfYWNjdW0oKTsNCiAgICAgICAgICAgICAgICAkdC0+ c2VuZF9zbG93KCAwLCAkU0hPV19NT0QgKTsNCiAgICAgICAgfQ0KICAgICAg ICBlbHNlIHsNCiAgICAgICAgICAgICAgICAkdC0+c2VuZF9zbG93KCAwLCAi dGVybSBsZW5ndGggMFxyIiApOw0KICAgICAgICAgICAgICAgICR0LT5leHBl Y3QoIE1BWF9USU1FT1VULCAkcHJvbXB0ICk7DQogICAgICAgICAgICAgICAg JHQtPmNsZWFyX2FjY3VtKCk7DQogICAgICAgICAgICAgICAgJHQtPnNlbmRf c2xvdyggMCwgJFNIT1dfRElBRyApOw0KICAgICAgICB9DQoNCiAgICAgICAg JHQtPmV4cGVjdCggTUFYX1RJTUVPVVQsICRwcm9tcHQgKTsNCiAgICAgICAg bXkgJHJhdyA9ICR0LT5leHBfYmVmb3JlKCk7DQogICAgICAgICR0LT5zZW5k X3Nsb3coIDAsICJleGl0XHIiICk7DQoNCiAgICAgICAgIyR0LT5zZW5kX3Ns b3coMCwgIh0iKTsNCiAgICAgICAgIyR0LT5leHBlY3QoTUFYX1RJTUVPVVQs ICctcmUnLCBxcid0ZWxuZXQ+Jyk7DQogICAgICAgICMkdC0+c2VuZF9zbG93 KDAsICJjbG9zZVxyIik7DQoNCiAgICAgICAgbXkgJGNvb2tlZCA9IHBhcnNl X21vZHMoICRyYXcsICR0eXBlLCAkbmFtZSApOw0KDQogICAgICAgICRjb29r ZWQ7DQoNCn0NCg0Kc3ViIHdhaXRwcm9tcHQgew0KICAgICAgICBteSAoICR0 eXBlLCAkdCApID0gQF87DQoNCiAgICAgICAgaWYgKCAkdHlwZSBlcSAiSU9T IiApIHsNCiAgICAgICAgICAgICAgICAkdC0+ZXhwZWN0KCBNQVhfVElNRU9V VCwgJy1yZScsICdcUys+LiokJyApIG9yIHJldHVybjsNCiAgICAgICAgfQ0K ICAgICAgICBlbHNlIHsNCiAgICAgICAgICAgICAgICAkdC0+ZXhwZWN0KCBN QVhfVElNRU9VVCwgJy1yZScsICdcUysgJCcgKSBvciByZXR1cm47DQogICAg ICAgIH0NCg0KICAgICAgICAxOw0KfQ0KDQpzdWIgcGFyc2VfbW9kcyB7DQog ICAgICAgIG15ICggJG1vZHMsICR0eXBlLCAkbmFtZSApID0gQF87DQoNCiAg ICAgICAgJG1vZHMgPX4gcy9eJFNIT1dfTU9ELy87DQogICAgICAgICRtb2Rz ID1+IHMvXiRTSE9XX0RJQUcvLzsNCiAgICAgICAgJG1vZHMgPX4gcy9cMDE1 Ly9nOw0KICAgICAgICAkbW9kcyA9fiBzL1wwMzIvL2c7DQogICAgICAgICRt b2RzID0gJHR5cGUgLiAiXG4iIC4gJG1vZHM7DQogICAgICAgICRtb2RzID0g JG5hbWUgLiAiXG4iIC4gJG1vZHM7DQogICAgICAgICRtb2RzIC49ICItPT0t IjsNCg0KICAgICAgICAkbW9kczsNCn0NCg0KMTsNCg== --0-332206728-992568608=:5507-- To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-questions" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20010614211332.I5507-200000>