Master Yavor from Tryavna

Най-простия начин:

expdp system@db schemas=abc directory=data_pump_dir dumpfile=abc.dp logfile=exp_abc.log
impdp system@db schemas=abc directory=data_pump_dir dumpfile=abc.dp logfile=imp_abc.log REMAP_SCHEMA=abc:def

После трябва да се оправят само грантовете от други към тази схема.
Не че е кой-знае какво, ама ми писна всеки път да се чудя какъв беше синтаксиса за нещо толкова елементарно. За това го пиша тук. Ако не те интересува – just ignore.

Юлиян е човек. За първи път го чух и видях на една сбирка в София, организирана от БГПО, в която той беше единствен лектор. Още тогава оцених, че е пич. Знае ужасно много неща, има всичката възможност на света да се големее, но не го прави. Говори ни съвсем човешки, всячески се опитва да предизвика дискусия. Сподели какви грешки е правил.

Юлиян е змей. Разбира Oracle database на едно друго ниво. Той е първия Oracle Certified Master в Европа, но отдавна е нещо повече. Той разбира нещата, осъзнава ги, чувства ги и ги усеща. Когато излезе Oracle 11g, Юлиян изнася темата „50 new features in oracle 11g“ на Oracle OpenWorld. Той разказа на света какво му е най-интересно в новата версия. Не някое рекламно лице от Oracle или някой архитект. Юлиян.

Юлиян е баш-DBA на Нокия във Финландия. На последната сбирка на БГПО каза, че те имат над 900 бази. Без да броят тези, който са по-маловажни и се хостват навън.

Юлиян е математик. Завършил е Computer Science в Будапеща, после Математика в Хелзинки. Математиката му е в кръвта. В Банско навлезе малко в темата на Пламен за Exadata и се опита да ни обясни механизма на bloom филтрите. Залата не прояви голяма интерес. Жалко.

Вижте филма за Юлиян и Сабина Дончеви в Другата България на bTV

Реших да понауча малко Perl. Всички го хвалят, че бил супер гъвкав език. Аз, обаче, не съм програмирал от години (ако не броим по някоя друга процедурка на PL/SQL тук-там). Оказа се, че програмирането като работа не се забравя, но сблъсъка с нов език ме изненада.

Както и да е. Предисторията е следната: тази седмица трябваше да инсталираме един тестов Oracle 10.2 на Linux и в знак на оптимизъм избрах Oracle Unbreakable Linux 4 Update 2 x86_64, защото от Oracle 10.2 на RHEL 5 имам лоши спомени. Интересното тук е архитектурата. Не знам RHEL4 дали се държи по същия начин, но се сблъскахме с един много тъп проблем. Преди инсталацията на Oracle DB, когато слагах всички необходими пакети, rpm започна да се държи странно – обясняваше ми, че един пакет го няма, а rpm -q показваше, че го има. Оказа се, че инсталатора е сложил i386 версията, а на мен ми трябва x86_64 версията. И двете си стоят мирно на инсталационното CD, но инсталера по най-тъпия начин е избрал 32 битовата.

Това го преборихме. Но то ме вдъхнови за първата, може би не много смислена, но ПЪРВА за мен програмка на perl. Реших да изнамеря всички пакети, които са инсталирани, но не и в x86_64 вариант.

Почнах наистина а началото, но с много оптимизъм. Примерно, за да взема името на всеки пакет реших най-оптимистично да се боря с regular exressions – това само по себе си е едно дълбоко море. Започнах така:

#!/usr/bin/env perl

use strict;
use warnings;

#my $s = "world";
#print "Hello, $s\n";
my $pn;
my @in=`rpm -qa`;
chomp @in;

foreach (@in) {
  $pn = $_;
  if ($pn =~ /((\w|-)+)-(\d+[-\.]+[-\w\.]*)/) {
        print "For $pn";
        print ", name is $1";
        print " and version is $3\n";
...

Този regexp сам по себе си е голямо заклинание, обаче колкото и да се мъча, не можах да хвана всички случаи. Най-брадатия пакет се оказа java-1.4.2-gcj-compat-1.4.2.0-27jpp – просто няма (или аз не мога да направя) regexp, който да се справи с отделянето на името от версията. Странното е, че като го погледна и ми става ясно коя част е име и коя – версия; но не мога да формулирам точния алгоритъм, поне в тази нова за мен среда. Като стана дума за среда, използвам просто vim, за по-трудно.

Както и да е. Пробите и грешките бяха много. Пешо помага, Xerxes също удари едно рамо в момент, в който бях забил по много тъп начин. И на края успях да стигна до Първата Работеща Програма на Perl (ПРПП), която съм писал лично аз:

#!/usr/bin/env perl

use strict;
use warnings;

my $Str64 = "x86_64";

sub GetArch {
# This procedure checks if some package's architecture is $Str64
# If thеre is more than one package with the same name
# (and different architectures), it will return $Str64
# If there is no package installation with #Str64 architecture
# it will return the first architecture occured

  # get package name from the parameters
  my $PckName = shift;
  # get installed architectures for the package
  my @PckArchs = `rpm --query --queryformat \"%{ARCH}\n\" $PckName`;
  # init $Result with the first architecture found
  my $Result = $PckArchs[0];
  my $CurrArch;

  # lop through architectures
  foreach (@PckArchs) {
      chomp;
      $CurrArch = $_;
      # Check if the architecture is what we are looking for
      if ($CurrArch eq $Str64)  {
          # Victory!
          $Result = $CurrArch;
          }
      }
  return $Result;
}

my $pn;
# we take all package names
my @in=`rpm -qa --queryformat \"%{NAME}\n\"`;
#sort the package names (will look better)
@in = sort(@in);
# remove the new line character
chomp @in;
my $pa;
my $PckCount = 0;

#loop through the package names
foreach (@in) {
    # take thе current package name
    $pn = $_;
    # get package's architecture
    $pa = GetArch($pn);
    chomp($pa);
    #check if the architecture is fine 
    #(and if thе package has architecture at all)
    if (($pa ne $Str64 ) && ($pa ne "noarch")) {
        # this package is not fine, let's report it
        print "$pn is $pa\n";
        $PckCount++;
    }
}
print "Number of bad packages: $PckCount\n";

Може би може да се направи много по-елегантно, но за ПРПП и това е ОК 🙂

P.S. оказа се че има инсталирани цели 41 такива пакета.

P.P.P.S. Оправих си Highlight Source Pro. Във файла wp-content\plugins\highlight-source-pro\geshi\geshi\perl.php на ред 63 вместо
'QUOTEMARKS' => array('"'),
написах
'QUOTEMARKS' => array('"','`'),