![[Developer Hub Logo]](https://habrastorage.org/getpro/geektimes/post_images/ebb/a0b/394/ebba0b39426593f4a085d5a7d0a7ca57.png)
Разработка дополнений только что стала проще
3 min
Translation
![[Developer Hub Logo]](https://habrastorage.org/getpro/geektimes/post_images/ebb/a0b/394/ebba0b39426593f4a085d5a7d0a7ca57.png)
User
#!/usr/bin/perl -w
use Net::Patricia;
# IP tools
my $pt = new Net::Patricia;
$pt->add_string('212.44.12.0/24');
if(defined($pt->match_string('212.44.12.3'))){
print "IN\n";
}else{
print "OUT\n";
}
use OLE; // используем модуль Win32::OLE
my $excel = CreateObject OLE 'Excel.Application' or die $!; // открываем Excel
$excel->{'Visible'} = 1; // советую Excel делать видимым, чтобы он не висел мертвым грузом в фоне, если вдруг случится косяк
my $workbook = $excel -> Workbooks -> Add(); // создаем новый документ
$workbook -> ActiveSheet -> Range("A1")-> {'Value'} = sprintf("Тест"); // заносим в ячейку A1 значение «Тест»
$workbook -> ActiveSheet -> Columns -> AutoFit; // очень полезная вещь – выравнивание ширины всех столбцов по содержимому
$workbook -> SaveAs("$file"); // сохраняем документ
$workbook -> ActiveSheet -> PrintOut; // если надо - распечатываем
$excel -> Quit; // закрываем Excel
$workbook -> ActiveSheet -> Range("A1")-> Font -> {FontStyle} = 'Bold'; // устанавливаем жирный шрифт в ячейке
$workbook -> ActiveSheet -> Range("A1")-> {HorizontalAlignment} = 3; // равнение в ячейке – по центру
$workbook -> ActiveSheet -> Range("A1")-> Borders -> {LineStyle} = 1; // рисуем границы ячейки
$workbook -> ActiveSheet -> Range("A1")-> Interior -> {ColorIndex} = 15; // делаем серую заливку ячейки
$workbook -> ActiveSheet -> Range("A1")-> EntireRow -> Delete; // удаляем строку с данной ячейкой
$workbook -> ActiveSheet -> Range("A1:A10") -> Merge; // объединяем ячейки
#!/usr/bin/perl -w
use Net::SMTP_auth;
my $repos=$ARGV[0];
my $rev=$ARGV[1];
my $change_data=`/usr/local/bin/svnlook diff -r $rev /home/svn/masterpanel/`;
$smtp = Net::SMTP_auth->new('smtp.example.com');
$smtp->auth('CRAM-MD5', 'some_login', 'some_pass');
$smtp->mail('svn@example.ru');
$smtp->to('masters@example.com');
$smtp->data();
$smtp->datasend("Subject: svn.example.com\n");
$smtp->datasend('From: svn@example.com');
$smtp->datasend("\n");
$smtp->datasend("$repos\n");
$smtp->datasend("$rev\n");
$smtp->datasend("$change_data\n");
$smtp->dataend();
$smtp->quit;
$ ./get-isbn.py test.pdf
ISBN-13: ['978-1-59059-585-5']
ISBN-10: ['1-59059-585-8']
<html>
<head>
</head>
<body>
<form method="POST" action="http://myhost/mydir">
<input type="submit" value="→" />
</form>
<? echo $_SERVER['REQUEST_METHOD'] ?>
</body>
</html>
* This source code was highlighted with Source Code Highlighter.