0
How many rounds is the M252 mortar maximum rate of fire per minute per tube?
Wiki User
∙ 14y ago
25 - 30 rounds for 2 minutes then let the barrel cool 2 minutes. 15 rounds per minute as long as you can stand it.
Wiki User
∙ 14y ago
Add your answer:
Earn +20 pts
How can I repair the turn signal emergency signal and windshield wiper system on the c230 Mercedes Benz?
You must change a multi functional Relay Module For: -Turn Signals -Hazard Warning -Wiper -Heated Rear Window -Trailer Coupling, C220 202.022- (1996-97), Brand: Kaehler part #202-820-46-26-M252... This relay controls all the functions you have decribed...
How do you copy the files from one directory to another directory in perl script?
Well, there are different ways to do it actually. Here is a subroutine I wrote a couple of decades ago to do it. You could also just use the Perl 'system()' function to do it, though it wouldn't have all the checks etc. as the function below.Example:$bytes_copied = filecopy("/home/joe/bigfile", "/tmp/bigfile", 4096, 0);### Written by John Horn, December 1st, 1992 at home on my new## SPARC workstation.### $mode is one of the following:## 0 = Create or Overwrite destination file.## 1 = Append source to destination file (Create if necessary).### The 'mode' mentioned above may change from one OS to another,## in typical Unix systems (we're using SunOS, HPUX, SCO and we're## getting in a few Silicon Graphics machines in a few days) so## for us, on our machines, right now, mode 0 creates/overwrites## (overwrite meaning open file and truncate to zero bytes).### WARNING! Do not pass Unix specific symbols such as '~' to this## function. I have seen USENET posts indicating Perl has been## ported to another OS besides Unix though I don't recall which## one (not Microsoft DOS obviously or any other Microsoft OS## because there are none that multi-task or are multi-user either)## so it had to VMS or maybe IBM's PC multi-tasker, OS2. Whatever## it was Perl will likely be ported to other architectures and## operating systems in the future so I must avoid using Unix## specific symbols etc. in re-usable code blocks like this one.### I do remember malloc()'ing a dozen megabytes of memory on## Microsoft DOS 5 a few months ago and the result was NOT## pretty, not pretty at all! Not sure if I would characterize## it as catastrophic really because the hard drive was still## usable, it just didn't have anything on it any more, no## partitions even, absolutely nothing. And thus ended my days## writing C language code on a Microsoft platform, I'll compile## and run it on a Microsoft platform, but I'll never develop on## one again - never again will I lose nearly 3 months development## because of a brain dead operating system.#### Usage: filecopy($sourcefile, $destfile, $buffersize, $mode);### Returns the total number of bytes copied.#sub filecopy {### Allocate our file handle pointers to be passed by## reference to our system calls. As everyone knows,## the '*' denotes a pointer to a memory location, not## the VALUE of the handle symbol.#local(*TARGET);local(*SOURCE);### Since we have so many prototyped arguments we pop## them all off the stack at once instead of popping## them one at a time.#my($srcfile, $dstfile, $buffsize, $MODE) = @_;### Initialize our lexically scoped variables here.#my($BUFFER, $bytes_in, $bytes_out, $count, $total_out) = 0;### Check for the existance of the source file to be copied## by a Perl 'pass through' to 'test'. For a list of test## switches, type 'man test' at the Unix shell prompt.#if(! -e "$srcfile") {### Return a 'fail' to the caller if the file to be copied## does not exist. While Unix can do damn near anything,## copying non-existant files is, at least so far, NOT one## one of it's capabilities.#return(-1);} else {### Low level random access open of file so that a file of## any type, ASCII or binary, may be read exactly as is.#sysopen(SOURCE, $srcfile, 0) or die "[FILECOPY:(sysopen)]: $!\n";}### If the target file does not exist, create it and open in## append mode. Also, we write a NULL to the file to force the## create and flush when the file is closed.#if(! -e "$dstfile") {open(TARGET, ">$dstfile") or die "[FILECOPY:(open)]: $!\n";printf(TARGET "%s", "");close(TARGET);} else {### Open our destination file in append mode, but we truncate## it to zero bytes before closing it.#open(TARGET, ">$dstfile") or die "[FILECOPY:(open)]: $!\n";truncate(TARGET, 0);close(TARGET);}### Now, we open our destination file in append mode with a low## level open call (random access).#sysopen(TARGET, $dstfile, 1) or die "[FILECOPY:(sysopen)]: $!\n";### Another function that Larry Wall accidentally omitted from his## Camel book. However, it is elementary my Dear Watson, like any## seek in any other language, this 'sysseek' simply repositions## the file pointer to some arbitrary point in the file. In this## case it is seeking to EoF (End of File).#if($MODE $size) {### This if() conditional block determines if another read/write cycle## is needed and if it is, it carries it out.#if(($total_out + $buffsize) < $size) {$bytes_in = sysread(SOURCE, $BUFFER, $buffsize);$bytes_out = syswrite(TARGET, $BUFFER, $buffsize);} else {$remainder = ($size - $total_out);$bytes_in = sysread(SOURCE, $BUFFER, $remainder);$bytes_out = syswrite(TARGET, $BUFFER, $remainder);}### If a read or write error ocurrs (eg, disk error, disk full, somebody## forgot to wave their rubber chicken with the proper verbal incantation,## office invaded by power cable eating zombies, act of god or devils## which would probably include many, if not most, politicians), we close## our file handles and bail out of this whole can of Bile beans.#if($bytes_in != $bytes_out) {close(SOURCE);close(TARGET);printf(STDOUT "Bytes read and bytes written do not match, aborting.");exit(1);}### Here we just keep track of the total number of bytes written to our## output file handle.#$total_out += $bytes_out;}}### All work is done, we can put away our M18 Hellcats, our P51 Mustangs, our M252## mortars, our Gatling guns and even our Rock'em Sock'em Robots.#close(SOURCE);close(TARGET);### Last but not least, we return the total number of bytes written to our output## file handle to the caller. Tha, tha, tha, tha... That's all Folks!#return($total_out);}
How do you copy files from one directory to another directory in perl script?
Well, there are different ways to do it actually. Here is a subroutine I wrote a couple of decades ago to do it. You could also just use the Perl 'system()' function to do it, though it wouldn't have all the checks etc. as the function below.Example:$bytes_copied = filecopy("/home/joe/bigfile", "/tmp/bigfile", 4096, 0);### Written by John Horn, December 1st, 1992 at home on my new## SPARC workstation.### $mode is one of the following:## 0 = Create or Overwrite destination file.## 1 = Append source to destination file (Create if necessary).### The 'mode' mentioned above may change from one OS to another,## in typical Unix systems (we're using SunOS, HPUX, SCO and we're## getting in a few Silicon Graphics machines in a few days) so## for us, on our machines, right now, mode 0 creates/overwrites## (overwrite meaning open file and truncate to zero bytes).### WARNING! Do not pass Unix specific symbols such as '~' to this## function. I have seen USENET posts indicating Perl has been## ported to another OS besides Unix though I don't recall which## one (not Microsoft DOS obviously or any other Microsoft OS## because there are none that multi-task or are multi-user either)## so it had to VMS or maybe IBM's PC multi-tasker, OS2. Whatever## it was Perl will likely be ported to other architectures and## operating systems in the future so I must avoid using Unix## specific symbols etc. in re-usable code blocks like this one.### I do remember malloc()'ing a dozen megabytes of memory on## Microsoft DOS 5 a few months ago and the result was NOT## pretty, not pretty at all! Not sure if I would characterize## it as catastrophic really because the hard drive was still## usable, it just didn't have anything on it any more, no## partitions even, absolutely nothing. And thus ended my days## writing C language code on a Microsoft platform, I'll compile## and run it on a Microsoft platform, but I'll never develop on## one again - never again will I lose nearly 3 months development## because of a brain dead operating system.#### Usage: filecopy($sourcefile, $destfile, $buffersize, $mode);### Returns the total number of bytes copied.#sub filecopy {### Allocate our file handle pointers to be passed by## reference to our system calls. As everyone knows,## the '*' denotes a pointer to a memory location, not## the VALUE of the handle symbol.#local(*TARGET);local(*SOURCE);### Since we have so many prototyped arguments we pop## them all off the stack at once instead of popping## them one at a time.#my($srcfile, $dstfile, $buffsize, $MODE) = @_;### Initialize our lexically scoped variables here.#my($BUFFER, $bytes_in, $bytes_out, $count, $total_out) = 0;### Check for the existance of the source file to be copied## by a Perl 'pass through' to 'test'. For a list of test## switches, type 'man test' at the Unix shell prompt.#if(! -e "$srcfile") {### Return a 'fail' to the caller if the file to be copied## does not exist. While Unix can do damn near anything,## copying non-existant files is, at least so far, NOT one## one of it's capabilities.#return(-1);} else {### Low level random access open of file so that a file of## any type, ASCII or binary, may be read exactly as is.#sysopen(SOURCE, $srcfile, 0) or die "[FILECOPY:(sysopen)]: $!\n";}### If the target file does not exist, create it and open in## append mode. Also, we write a NULL to the file to force the## create and flush when the file is closed.#if(! -e "$dstfile") {open(TARGET, ">$dstfile") or die "[FILECOPY:(open)]: $!\n";printf(TARGET "%s", "");close(TARGET);} else {### Open our destination file in append mode, but we truncate## it to zero bytes before closing it.#open(TARGET, ">$dstfile") or die "[FILECOPY:(open)]: $!\n";truncate(TARGET, 0);close(TARGET);}### Now, we open our destination file in append mode with a low## level open call (random access).#sysopen(TARGET, $dstfile, 1) or die "[FILECOPY:(sysopen)]: $!\n";### Another function that Larry Wall accidentally omitted from his## Camel book. However, it is elementary my Dear Watson, like any## seek in any other language, this 'sysseek' simply repositions## the file pointer to some arbitrary point in the file. In this## case it is seeking to EoF (End of File).#if($MODE $size) {### This if() conditional block determines if another read/write cycle## is needed and if it is, it carries it out.#if(($total_out + $buffsize) < $size) {$bytes_in = sysread(SOURCE, $BUFFER, $buffsize);$bytes_out = syswrite(TARGET, $BUFFER, $buffsize);} else {$remainder = ($size - $total_out);$bytes_in = sysread(SOURCE, $BUFFER, $remainder);$bytes_out = syswrite(TARGET, $BUFFER, $remainder);}### If a read or write error ocurrs (eg, disk error, disk full, somebody## forgot to wave their rubber chicken with the proper verbal incantation,## office invaded by power cable eating Zombies, act of god or devils## which would probably include many, if not most, politicians), we close## our file handles and bail out of this whole can of Bile beans.#if($bytes_in != $bytes_out) {close(SOURCE);close(TARGET);printf(STDOUT "Bytes read and bytes written do not match, aborting.");exit(1);}### Here we just keep track of the total number of bytes written to our## output file handle.#$total_out += $bytes_out;}}### All work is done, we can put away our M18 Hellcats, our P51 Mustangs, our M252## mortars, our Gatling guns and even our Rock'em Sock'em Robots.#close(SOURCE);close(TARGET);### Last but not least, we return the total number of bytes written to our output## file handle to the caller. Tha, tha, tha, tha... That's all Folks!#return($total_out);}
