mirror of
https://github.com/avem-labs/Avem.git
synced 2023-09-01 15:18:49 +08:00
28 lines
544 B
Perl
28 lines
544 B
Perl
#!/usr/bin/perl
|
|
use Net::Telnet;
|
|
|
|
$numArgs = $#ARGV + 1;
|
|
if($numArgs != 1){
|
|
die( "Usage ./do_flash.pl [main.bin] \n");
|
|
}
|
|
|
|
$file = $ARGV[0];
|
|
$ip = "127.0.0.1";
|
|
$port = 4444;
|
|
$telnet = new Net::Telnet (
|
|
Port => $port,
|
|
Timeout=>10,
|
|
Errmode=>'die',
|
|
Prompt =>'/>/');
|
|
|
|
$telnet->open($ip);
|
|
|
|
print $telnet->cmd('reset halt');
|
|
print $telnet->cmd('flash probe 0');
|
|
print $telnet->cmd('stm32f1x mass_erase 0');
|
|
print $telnet->cmd('flash write_bank 0 '.$file.' 0');
|
|
print $telnet->cmd('reset halt');
|
|
print $telnet->cmd('exit');
|
|
|
|
print "\n";
|