[Leackim]

Hello,

I am currently using CCL and Perl to make a post treatment file.

I would like to know if someone already managed to used CCL syntax inside a perl .pm file (library file).

To explain a little more, when i am writting my .pm file i can't use !,
So how i show CFX that some commands are CCL.
Here is an example :
************************************************
package Cfx;

use strict;
use Exporter qw(import);

our $VERSION = 1.00;
our @ISA = qw(Exporter);
our @EXPORT = ();
our @EXPORT_OK = qw(PointXYZ);
our %EXPORT_TAGS = ( DEFAULT => [qw(&PointXYZ)],
All => [qw(&PointXYZ)]);

COMMAND FILE:
CFX Post Version = 14.5
END

sub PointXYZ{
my ($s_dom,$s_x,$s_y,$s_z,$s_unit,$s_name)=@_; # Subroutine Input

my ($r_name);


# ------------Variable Initialization-----------------------------------------------------------------------------------------------------#
$r_name="";
# -----------------------------------------------------------------------------------------------------------------------------------------#
POINT:Point $s_name
Apply Instancing Transform = On
Colour = 1, 1, 0
Domain List = $s_dom
Line Width = 2
Option = XYZ
Point = $s_x $s_unit, $s_y $s_unit, $s_z $s_unit;
Point Symbol = Crosshair
Range = Global
Specular Lighting = On
Surface Drawing = Smooth Shading;
Symbol Size = 0.07
Transparency = 0.0
END;
$r_name="/POINT:Point $s_name"; #/
return($r_name);
}
1;
******************************************
As soon as i add CFX command (CCL) like POINT... my code stop working, however if i removed any CFX line and make just "print" things, my library works.

So,if someone find a solution to mix perl and CFX language let me know.

Thank you

[Opaque]

Have you looked in the installation directory for CFD-Post session file examples ? They are suffixed .cse (Cfx SEssion)

They are worth a fortune if you are interested in Perl+CCL

[singer1812]

Why do you have ; on END and Point = $s_x $s_unit, $s_y $s_unit, $s_z $s_unit

Those are CFX commands, not Perl