世界上最难的“常规表达式”怎么写

[oicqkill]

如果在一个文件里有下面的数据结构多个，请问我要把下面的东西用常规表达式(正则表达式) 匹配出来并放入数组里，该怎么写这个-----常规表达式(正则表达式) 呢？

struct ipx_opt {
ipx_address dest_addr;
ipx_interface *intrfc;
unsigned short port;
#ifdef CONFIG_IPX_INTERN
unsigned char node[IPX_NODE_LEN];
#endif
unsigned short type;
/*
struct unix_opt {
struct unix_address *addr;
struct dentry * dentry;
struct vfsmount * mnt;
struct semaphore readsem;
struct sock * other;
struct sock ** list;
struct sock * gc_tree;
atomic_t inflight;
rwlock_t lock;
wait_queue_head_t peer_wait;
};
* To handle special ncp connection-handling sockets for mars_nwe,
* the connection number must be stored in the socket.
*/
struct ipv6_pinfo {
struct in6_addr saddr;
struct in6_addr rcv_saddr;
struct in6_addr daddr;
struct in6_addr *daddr_cache;

__u32 flow_label;
__u32 frag_size;
int hop_limit;
int mcast_hops;
int mcast_oif;

/* pktoption flags */
union {
struct {
__u8 srcrt:2,
rxinfo:1,
rxhlim:1,
hopopts:1,
dstopts:1,
authhdr:1,
rxflow:1;
} bits;
__u8 all;
} rxopt;
unsigned short ipx_ncp_conn;
};

[oicqkill]

假如注释里用：
//wgjljglejgklegjlejldjgldjgld
呢？又该怎么处理，
请给我来邮件 [e-mail]

即可给朋友---您 加分，如果蒙不弃 做个朋友，OK!?

[jinandsun]

还不错啊
不过找不到破戒版的啊！

[leelix]

i don't think it's a good way to match the data with that data structure, cuz perl can also read in binary data structure and put them into variable through 'unpack' keyword.

see 'perlfunc' in Acitver Perl Help for 'unpack' help